[Home] [Help]
134:
135: /******************************************
136: * Initialize API return status to success *
137: ******************************************/
138: x_return_status := FND_API.G_RET_STS_SUCCESS;
139: l_adjust_status := NULL;
140: G_header_logged := 'N';
141:
142: IF P_OPERATION IN ('INSERT', 'UPDATE', 'DELETE', 'GET')
172: IF l_adjust_status = 1 AND P_OPERATION IN ('UPDATE', 'DELETE')
173: THEN
174: FND_MESSAGE.SET_NAME('GMF','GMF_API_ACA_APPLIED');
175: FND_MSG_PUB.Add;
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
178: IF (p_adjustment_rec.organization_id IS NOT NULL OR p_adjustment_rec.organization_code IS NOT NULL)
179: AND (p_adjustment_rec.cost_type_id IS NOT NULL OR p_adjustment_rec.cost_mthd_code IS NOT NULL)
180: AND (p_adjustment_rec.inventory_item_id IS NOT NULL OR p_adjustment_rec.item_number IS NOT NULL)
186: FND_MSG_PUB.Add;
187: END IF;
188: END IF;
189: ELSE
190: IF (p_adjustment_rec.period_id = FND_API.G_MISS_NUM) OR (p_adjustment_rec.period_id IS NULL)
191: THEN
192: /***********************
193: * Cost Type Validation *
194: ***********************/
191: THEN
192: /***********************
193: * Cost Type Validation *
194: ***********************/
195: IF (p_adjustment_rec.cost_type_id <> FND_API.G_MISS_NUM) AND (p_adjustment_rec.cost_type_id IS NOT NULL)
196: THEN
197: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
198: THEN
199: log_msg('Validating Cost Type Id : ' || p_adjustment_rec.cost_type_id);
202: THEN
203: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_COST_TYPE_ID');
204: FND_MESSAGE.SET_TOKEN('COST_TYPE_ID', p_adjustment_rec.cost_type_id);
205: FND_MSG_PUB.Add;
206: RAISE FND_API.G_EXC_ERROR;
207: END IF;
208: IF (p_adjustment_rec.cost_mthd_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.cost_mthd_code IS NOT NULL)
209: THEN
210: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
204: FND_MESSAGE.SET_TOKEN('COST_TYPE_ID', p_adjustment_rec.cost_type_id);
205: FND_MSG_PUB.Add;
206: RAISE FND_API.G_EXC_ERROR;
207: END IF;
208: IF (p_adjustment_rec.cost_mthd_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.cost_mthd_code IS NOT NULL)
209: THEN
210: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
211: THEN
212: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_COST_TYPE');
213: FND_MESSAGE.SET_TOKEN('COST_TYPE', p_adjustment_rec.cost_mthd_code);
214: FND_MSG_PUB.Add;
215: END IF;
216: END IF;
217: ELSIF (p_adjustment_rec.cost_mthd_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.cost_mthd_code IS NOT NULL)
218: THEN
219: /************************
220: * Convert Code into ID. *
221: ************************/
232: THEN
233: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_COST_TYPE');
234: FND_MESSAGE.SET_TOKEN('COST_TYPE',p_adjustment_rec.cost_mthd_code);
235: FND_MSG_PUB.Add;
236: RAISE FND_API.G_EXC_ERROR;
237: END IF;
238: ELSE
239: FND_MESSAGE.SET_NAME('GMF','GMF_API_COST_TYPE_ID_REQ');
240: FND_MSG_PUB.Add;
237: END IF;
238: ELSE
239: FND_MESSAGE.SET_NAME('GMF','GMF_API_COST_TYPE_ID_REQ');
240: FND_MSG_PUB.Add;
241: RAISE FND_API.G_EXC_ERROR;
242: END IF;
243: ELSE
244: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
245: THEN
248: END IF;
249: /**************************
250: * Organization Validation *
251: **************************/
252: IF ((p_adjustment_rec.organization_id <> FND_API.G_MISS_NUM) AND (p_adjustment_rec.organization_id IS NOT NULL))
253: THEN
254: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
255: THEN
256: log_msg('Validating Organization Id : ' || p_adjustment_rec.organization_id);
259: THEN
260: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ORGN_ID');
261: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_adjustment_rec.organization_id);
262: FND_MSG_PUB.Add;
263: RAISE FND_API.G_EXC_ERROR;
264: END IF;
265: IF (p_adjustment_rec.organization_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.organization_code IS NOT NULL)
266: THEN
267: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
261: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_adjustment_rec.organization_id);
262: FND_MSG_PUB.Add;
263: RAISE FND_API.G_EXC_ERROR;
264: END IF;
265: IF (p_adjustment_rec.organization_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.organization_code IS NOT NULL)
266: THEN
267: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
268: THEN
269: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_ORGN_CODE');
270: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE', p_adjustment_rec.organization_code);
271: FND_MSG_PUB.Add;
272: END IF;
273: END IF;
274: ELSIF ((p_adjustment_rec.organization_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.organization_code IS NOT NULL))
275: THEN
276: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
277: THEN
278: log_msg('Validating Organization Code : ' || p_adjustment_rec.organization_code);
286: THEN
287: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ORGN_CODE');
288: FND_MESSAGE.SET_TOKEN('ORG_CODE', p_adjustment_rec.organization_code);
289: FND_MSG_PUB.Add;
290: RAISE FND_API.G_EXC_ERROR;
291: END IF;
292: ELSE
293: FND_MESSAGE.SET_NAME('GMF','GMF_API_ORGANIZATION_ID_REQ');
294: FND_MSG_PUB.Add;
291: END IF;
292: ELSE
293: FND_MESSAGE.SET_NAME('GMF','GMF_API_ORGANIZATION_ID_REQ');
294: FND_MSG_PUB.Add;
295: RAISE FND_API.G_EXC_ERROR;
296: END IF;
297: /******************
298: * Item Validation *
299: ******************/
296: END IF;
297: /******************
298: * Item Validation *
299: ******************/
300: IF (p_adjustment_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND (p_adjustment_rec.inventory_item_id IS NOT NULL)
301: THEN
302: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
303: THEN
304: log_msg('Validating Inventory Item Id : ' || p_adjustment_rec.inventory_item_id);
308: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ITEM_ID');
309: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_adjustment_rec.inventory_item_id);
310: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_adjustment_rec.organization_id);
311: FND_MSG_PUB.Add;
312: RAISE FND_API.G_EXC_ERROR;
313: END IF;
314: IF (p_adjustment_rec.item_number <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.item_number IS NOT NULL)
315: THEN
316: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
310: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_adjustment_rec.organization_id);
311: FND_MSG_PUB.Add;
312: RAISE FND_API.G_EXC_ERROR;
313: END IF;
314: IF (p_adjustment_rec.item_number <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.item_number IS NOT NULL)
315: THEN
316: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
317: THEN
318: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_ITEM_NO');
320: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_adjustment_rec.organization_id);
321: FND_MSG_PUB.Add;
322: END IF;
323: END IF;
324: ELSIF (p_adjustment_rec.item_number <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.item_number IS NOT NULL)
325: THEN
326: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
327: THEN
328: log_msg('Validating Item Number : ' || p_adjustment_rec.item_number);
337: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ITEM_NO');
338: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_adjustment_rec.item_number);
339: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_adjustment_rec.organization_id);
340: FND_MSG_PUB.Add;
341: RAISE FND_API.G_EXC_ERROR;
342: END IF;
343: ELSE
344: FND_MESSAGE.SET_NAME('GMF','GMF_API_ITEM_ID_REQ');
345: FND_MSG_PUB.Add;
342: END IF;
343: ELSE
344: FND_MESSAGE.SET_NAME('GMF','GMF_API_ITEM_ID_REQ');
345: FND_MSG_PUB.Add;
346: RAISE FND_API.G_EXC_ERROR;
347: END IF;
348: /********************
349: * Period Validation *
350: ********************/
347: END IF;
348: /********************
349: * Period Validation *
350: ********************/
351: IF (p_adjustment_rec.period_id <> FND_API.G_MISS_NUM) AND (p_adjustment_rec.period_id IS NOT NULL)
352: THEN
353: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
354: THEN
355: log_msg('Validating Period Id : ' || p_adjustment_rec.Period_id);
358: THEN
359: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_PERIOD_ID');
360: FND_MESSAGE.SET_TOKEN('PERIOD_ID', p_adjustment_rec.period_id);
361: FND_MSG_PUB.Add;
362: RAISE FND_API.G_EXC_ERROR;
363: END IF;
364: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
365: THEN
366: log_msg('Cost Type Id fetched based on Period Id is: '||p_adjustment_rec.cost_type_id);
364: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
365: THEN
366: log_msg('Cost Type Id fetched based on Period Id is: '||p_adjustment_rec.cost_type_id);
367: END IF;
368: IF ((p_adjustment_rec.calendar_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.calendar_code IS NOT NULL))
369: AND ((p_adjustment_rec.period_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.period_code IS NOT NULL))
370: THEN
371: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
372: THEN
365: THEN
366: log_msg('Cost Type Id fetched based on Period Id is: '||p_adjustment_rec.cost_type_id);
367: END IF;
368: IF ((p_adjustment_rec.calendar_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.calendar_code IS NOT NULL))
369: AND ((p_adjustment_rec.period_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.period_code IS NOT NULL))
370: THEN
371: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
372: THEN
373: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_PERIOD_CODE');
375: FND_MESSAGE.SET_TOKEN('PERIOD_CODE', p_adjustment_rec.period_code);
376: FND_MSG_PUB.Add;
377: END IF;
378: END IF;
379: ELSIF (p_adjustment_rec.calendar_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.calendar_code IS NOT NULL)
380: AND ((p_adjustment_rec.period_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.period_code IS NOT NULL))
381: THEN
382: /************************
383: * Convert Code into ID. *
376: FND_MSG_PUB.Add;
377: END IF;
378: END IF;
379: ELSIF (p_adjustment_rec.calendar_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.calendar_code IS NOT NULL)
380: AND ((p_adjustment_rec.period_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.period_code IS NOT NULL))
381: THEN
382: /************************
383: * Convert Code into ID. *
384: ************************/
396: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_CLDR_PERIOD');
397: FND_MESSAGE.SET_TOKEN('CALENDAR_CODE',p_adjustment_rec.calendar_code);
398: FND_MESSAGE.SET_TOKEN('PERIOD_CODE',p_adjustment_rec.period_code);
399: FND_MSG_PUB.Add;
400: RAISE FND_API.G_EXC_ERROR;
401: END IF;
402: ELSE
403: FND_MESSAGE.SET_NAME('GMF','GMF_API_PERIOD_REQ');
404: FND_MSG_PUB.Add;
401: END IF;
402: ELSE
403: FND_MESSAGE.SET_NAME('GMF','GMF_API_PERIOD_REQ');
404: FND_MSG_PUB.Add;
405: RAISE FND_API.G_EXC_ERROR;
406: END IF;
407: END IF;
408: /**********************************
409: * Cost Component Class Validation *
407: END IF;
408: /**********************************
409: * Cost Component Class Validation *
410: **********************************/
411: IF (p_adjustment_rec.cost_cmpntcls_id <> FND_API.G_MISS_NUM) AND (p_adjustment_rec.cost_cmpntcls_id IS NOT NULL)
412: THEN
413: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
414: THEN
415: log_msg('Validating Cost Component Class ID :'|| p_adjustment_rec.cost_cmpntcls_id);
418: THEN
419: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_CMPNTCLS_ID');
420: FND_MESSAGE.SET_TOKEN('CMPNTCLS_ID',p_adjustment_rec.cost_cmpntcls_id);
421: FND_MSG_PUB.Add;
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
424: IF (p_adjustment_rec.cost_cmpntcls_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.cost_cmpntcls_code IS NOT NULL)
425: THEN
426: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
420: FND_MESSAGE.SET_TOKEN('CMPNTCLS_ID',p_adjustment_rec.cost_cmpntcls_id);
421: FND_MSG_PUB.Add;
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
424: IF (p_adjustment_rec.cost_cmpntcls_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.cost_cmpntcls_code IS NOT NULL)
425: THEN
426: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
427: THEN
428: FND_MESSAGE.SET_NAME('GMF','GMF_API_IGNORE_CMPNTCLS_CODE');
429: FND_MESSAGE.SET_TOKEN('CMPNTCLS_CODE', p_adjustment_rec.cost_cmpntcls_code);
430: FND_MSG_PUB.Add;
431: END IF;
432: END IF;
433: ELSIF (p_adjustment_rec.cost_cmpntcls_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.cost_cmpntcls_code IS NOT NULL)
434: THEN
435: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
436: THEN
437: log_msg('Validating Cost Component Class Code : ' || p_adjustment_rec.cost_cmpntcls_code);
445: THEN
446: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_CMPNTCLS_CODE');
447: FND_MESSAGE.SET_TOKEN('CMPNTCLS_CODE', p_adjustment_rec.cost_cmpntcls_code);
448: FND_MSG_PUB.Add;
449: RAISE FND_API.G_EXC_ERROR;
450: END IF;
451: ELSE
452: FND_MESSAGE.SET_NAME('GMF','GMF_API_CMPNTCLS_ID_REQ');
453: FND_MSG_PUB.Add;
450: END IF;
451: ELSE
452: FND_MESSAGE.SET_NAME('GMF','GMF_API_CMPNTCLS_ID_REQ');
453: FND_MSG_PUB.Add;
454: RAISE FND_API.G_EXC_ERROR;
455: END IF;
456: /***************************
457: * Analysis Code Validation *
458: ***************************/
455: END IF;
456: /***************************
457: * Analysis Code Validation *
458: ***************************/
459: IF (p_adjustment_rec.cost_analysis_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.cost_analysis_code IS NOT NULL)
460: THEN
461: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
462: THEN
463: log_msg('Validating Cost Analysis code :' || p_adjustment_rec.cost_analysis_code);
466: THEN
467: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ANALYSIS_CODE');
468: FND_MESSAGE.SET_TOKEN('ANALYSIS_CODE', p_adjustment_rec.cost_analysis_code);
469: FND_MSG_PUB.Add;
470: RAISE FND_API.G_EXC_ERROR;
471: END IF;
472: ELSE
473: FND_MESSAGE.SET_NAME('GMF','GMF_API_ANALYSIS_CODE_REQ');
474: FND_MSG_PUB.Add;
471: END IF;
472: ELSE
473: FND_MESSAGE.SET_NAME('GMF','GMF_API_ANALYSIS_CODE_REQ');
474: FND_MSG_PUB.Add;
475: RAISE FND_API.G_EXC_ERROR;
476: END IF;
477: /***********************************
478: * Adjustment Indicator Validation *
479: ***********************************/
476: END IF;
477: /***********************************
478: * Adjustment Indicator Validation *
479: ***********************************/
480: IF (p_adjustment_rec.adjustment_ind <> FND_API.G_MISS_NUM) AND (p_adjustment_rec.adjustment_ind IS NOT NULL)
481: THEN
482: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
483: THEN
484: log_msg('Validating Adjustment Indicator : ' || p_adjustment_rec.adjustment_ind );
487: THEN
488: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ADJ_IND');
489: FND_MESSAGE.SET_TOKEN('ADJUSTMENT_IND',p_adjustment_rec.adjustment_ind);
490: FND_MSG_PUB.Add;
491: RAISE FND_API.G_EXC_ERROR;
492: END IF;
493: ELSE
494: FND_MESSAGE.SET_NAME('GMF','GMF_API_ADJ_IND_REQ');
495: FND_MSG_PUB.Add;
492: END IF;
493: ELSE
494: FND_MESSAGE.SET_NAME('GMF','GMF_API_ADJ_IND_REQ');
495: FND_MSG_PUB.Add;
496: RAISE FND_API.G_EXC_ERROR;
497: END IF;
498: IF P_OPERATION IN ('INSERT', 'UPDATE') THEN
499: /************************
500: * Adjust UOM Validation *
498: IF P_OPERATION IN ('INSERT', 'UPDATE') THEN
499: /************************
500: * Adjust UOM Validation *
501: ************************/
502: IF (p_adjustment_rec.adjust_qty_uom <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.adjust_qty_uom IS NOT NULL)
503: THEN
504: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
505: THEN
506: log_msg('Validating Adjust Qty UOM :' || p_adjustment_rec.adjust_qty_uom);
509: THEN
510: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_ITEM_UM');
511: FND_MESSAGE.SET_TOKEN('ITEM_UOM', p_adjustment_rec.adjust_qty_uom);
512: FND_MSG_PUB.Add;
513: RAISE FND_API.G_EXC_ERROR;
514: END IF;
515: ELSE
516: FND_MESSAGE.SET_NAME('GMF','GMF_API_ITEM_UM_REQ');
517: FND_MSG_PUB.Add;
514: END IF;
515: ELSE
516: FND_MESSAGE.SET_NAME('GMF','GMF_API_ITEM_UM_REQ');
517: FND_MSG_PUB.Add;
518: RAISE FND_API.G_EXC_ERROR;
519: END IF;
520: /*****************************
521: * Adjustment Cost validation *
522: *****************************/
529: IF p_adjustment_rec.adjust_cost IS NULL
530: THEN
531: FND_MESSAGE.SET_NAME('GMF','GMF_API_ACA_ADJ_COST');
532: FND_MSG_PUB.Add;
533: RAISE FND_API.G_EXC_ERROR;
534: END IF;
535: END IF;
536: /*************************
537: * Reason Code Validation *
535: END IF;
536: /*************************
537: * Reason Code Validation *
538: *************************/
539: IF ((p_adjustment_rec.reason_code <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.reason_code IS NOT NULL))
540: THEN
541: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
542: THEN
543: log_msg('Validating Reason Code: ' || p_adjustment_rec.reason_code );
554: THEN
555: FND_MESSAGE.SET_NAME('GMF','GMF_API_ACA_REASON_CODE');
556: FND_MESSAGE.SET_TOKEN('REASON_CODE',p_adjustment_rec.reason_code);
557: FND_MSG_PUB.Add;
558: RAISE FND_API.G_EXC_ERROR;
559: END;
560: ELSE
561: FND_MESSAGE.SET_NAME('GMF','GMF_API_REASON_CODE_REQ');
562: FND_MSG_PUB.Add;
559: END;
560: ELSE
561: FND_MESSAGE.SET_NAME('GMF','GMF_API_REASON_CODE_REQ');
562: FND_MSG_PUB.Add;
563: RAISE FND_API.G_EXC_ERROR;
564: END IF;
565: IF (p_adjustment_rec.delete_mark <> FND_API.G_MISS_NUM) AND (p_adjustment_rec.delete_mark IS NOT NULL)
566: THEN
567: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
561: FND_MESSAGE.SET_NAME('GMF','GMF_API_REASON_CODE_REQ');
562: FND_MSG_PUB.Add;
563: RAISE FND_API.G_EXC_ERROR;
564: END IF;
565: IF (p_adjustment_rec.delete_mark <> FND_API.G_MISS_NUM) AND (p_adjustment_rec.delete_mark IS NOT NULL)
566: THEN
567: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
568: THEN
569: log_msg('Validating Delete_mark : ' || p_adjustment_rec.delete_mark);
573: add_record_to_error_stack(p_adjustment_rec);
574: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_DELETE_MARK');
575: FND_MESSAGE.SET_TOKEN('DELETE_MARK',p_adjustment_rec.delete_mark);
576: FND_MSG_PUB.Add;
577: RAISE FND_API.G_EXC_ERROR;
578: END IF;
579: ELSIF (p_adjustment_rec.delete_mark = FND_API.G_MISS_NUM AND p_operation IN ('UPDATE', 'INSERT'))
580: THEN
581: add_record_to_error_stack(p_adjustment_rec);
575: FND_MESSAGE.SET_TOKEN('DELETE_MARK',p_adjustment_rec.delete_mark);
576: FND_MSG_PUB.Add;
577: RAISE FND_API.G_EXC_ERROR;
578: END IF;
579: ELSIF (p_adjustment_rec.delete_mark = FND_API.G_MISS_NUM AND p_operation IN ('UPDATE', 'INSERT'))
580: THEN
581: add_record_to_error_stack(p_adjustment_rec);
582: FND_MESSAGE.SET_NAME('GMF','GMF_API_DELETE_MARK_REQ');
583: FND_MSG_PUB.Add;
580: THEN
581: add_record_to_error_stack(p_adjustment_rec);
582: FND_MESSAGE.SET_NAME('GMF','GMF_API_DELETE_MARK_REQ');
583: FND_MSG_PUB.Add;
584: RAISE FND_API.G_EXC_ERROR;
585: END IF;
586: IF ((p_operation IN ('UPDATE','INSERT')) AND (p_adjustment_rec.delete_mark = 1))
587: THEN
588: add_record_to_error_stack(p_adjustment_rec);
587: THEN
588: add_record_to_error_stack(p_adjustment_rec);
589: FND_MESSAGE.SET_NAME('GMF','GMF_API_CANT_MARK_FOR_PURGE');
590: FND_MSG_PUB.Add;
591: RAISE FND_API.G_EXC_ERROR;
592: END IF;
593: /***********************************
594: * Subledger Indicator Validation *
595: ***********************************/
592: END IF;
593: /***********************************
594: * Subledger Indicator Validation *
595: ***********************************/
596: IF (p_adjustment_rec.subledger_ind <> FND_API.G_MISS_NUM) AND (p_adjustment_rec.subledger_ind IS NOT NULL)
597: THEN
598: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
599: THEN
600: log_msg('Validating Subledger Ind : ' || p_adjustment_rec.subledger_ind );
603: THEN
604: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_SUBLEDGER_IND');
605: FND_MESSAGE.SET_TOKEN('SUBLEDGER_IND',p_adjustment_rec.subledger_ind);
606: FND_MSG_PUB.Add;
607: RAISE FND_API.G_EXC_ERROR;
608: ELSE
609: /*****************************
610: * Adjustment Date Validation *
611: *****************************/
642: FND_MESSAGE.SET_TOKEN('ADJUSTMENT_DATE',p_adjustment_rec.adjustment_date);
643: FND_MESSAGE.SET_TOKEN('START_DATE', l_start_date);
644: FND_MESSAGE.SET_TOKEN('END_DATE', l_end_date);
645: FND_MSG_PUB.Add;
646: RAISE FND_API.G_EXC_ERROR;
647: END IF;
648: END IF;
649: END IF;
650: ELSE
649: END IF;
650: ELSE
651: FND_MESSAGE.SET_NAME('GMF','GMF_API_SUBLEDGER_IND_REQ');
652: FND_MSG_PUB.Add;
653: RAISE FND_API.G_EXC_ERROR;
654: END IF;
655: END IF;
656: /**********************
657: * Username Validation *
655: END IF;
656: /**********************
657: * Username Validation *
658: **********************/
659: IF (p_adjustment_rec.user_name <> FND_API.G_MISS_CHAR) AND (p_adjustment_rec.user_name IS NOT NULL)
660: THEN
661: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
662: THEN
663: log_msg('Validating user name : ' || p_adjustment_rec.user_name);
670: THEN
671: FND_MESSAGE.SET_NAME('GMF','GMF_API_INVALID_USER_NAME');
672: FND_MESSAGE.SET_TOKEN('USER_NAME',p_adjustment_rec.user_name);
673: FND_MSG_PUB.Add;
674: RAISE FND_API.G_EXC_ERROR;
675: END IF;
676: ELSE
677: FND_MESSAGE.SET_NAME('GMF','GMF_API_USER_NAME_REQ');
678: FND_MSG_PUB.Add;
675: END IF;
676: ELSE
677: FND_MESSAGE.SET_NAME('GMF','GMF_API_USER_NAME_REQ');
678: FND_MSG_PUB.Add;
679: RAISE FND_API.G_EXC_ERROR;
680: END IF;
681: /***************************
682: * Adjustment ID validation *
683: ***************************/
737: ' for '|| p_operation || ' Does''nt Exist');
738: END IF;
739: FND_MESSAGE.SET_NAME('GMF','GMF_API_ACA_ADJUST_ID_NULL');
740: FND_MSG_PUB.Add;
741: RAISE FND_API.G_EXC_ERROR;
742: END IF;
743: IF l_adjust_status = 1
744: THEN
745: FND_MESSAGE.SET_NAME('GMF','GMF_API_ACA_APPLIED');
743: IF l_adjust_status = 1
744: THEN
745: FND_MESSAGE.SET_NAME('GMF','GMF_API_ACA_APPLIED');
746: FND_MSG_PUB.Add;
747: RAISE FND_API.G_EXC_ERROR;
748: END IF;
749: END IF;
750: END IF;
751: END IF;
781: ********************************************************************/
782: PROCEDURE CREATE_ACTUAL_COST_ADJUSTMENT
783: (
784: p_api_version IN NUMBER,
785: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
786: p_commit IN VARCHAR2 := FND_API.G_FALSE,
787: x_return_status OUT NOCOPY VARCHAR2,
788: x_msg_count OUT NOCOPY NUMBER,
789: x_msg_data OUT NOCOPY VARCHAR2,
782: PROCEDURE CREATE_ACTUAL_COST_ADJUSTMENT
783: (
784: p_api_version IN NUMBER,
785: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
786: p_commit IN VARCHAR2 := FND_API.G_FALSE,
787: x_return_status OUT NOCOPY VARCHAR2,
788: x_msg_count OUT NOCOPY NUMBER,
789: x_msg_data OUT NOCOPY VARCHAR2,
790: p_adjustment_rec IN OUT NOCOPY GMF_ACTUAL_COST_ADJUSTMENT_PUB.ADJUSTMENT_REC_TYPE
811:
812: /*************************************************************
813: * Initialize message list if p_init_msg_list is set to TRUE. *
814: *************************************************************/
815: IF FND_API.to_Boolean( p_init_msg_list )
816: THEN
817: FND_MSG_PUB.initialize;
818: END IF;
819:
819:
820: /*************************************************
821: * Standard call to check for call compatibility. *
822: *************************************************/
823: IF NOT FND_API.Compatible_API_Call
824: (
825: l_api_version,
826: p_api_version,
827: l_api_name,
827: l_api_name,
828: G_PKG_NAME
829: )
830: THEN
831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
832: END IF;
833:
834: /******************************************
835: * Initialize API return status to success *
833:
834: /******************************************
835: * Initialize API return status to success *
836: ******************************************/
837: x_return_status := FND_API.G_RET_STS_SUCCESS;
838: G_header_logged := 'N';
839:
840: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
841: THEN
855: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
856: THEN
857: log_msg('Return Status after validating : ' || l_return_status);
858: END IF;
859: IF l_return_status = FND_API.G_RET_STS_ERROR
860: THEN
861: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
862: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
863: FND_MSG_PUB.Add;
860: THEN
861: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
862: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
863: FND_MSG_PUB.Add;
864: RAISE FND_API.G_EXC_ERROR;
865: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
866: THEN
867: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
868: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
861: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
862: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
863: FND_MSG_PUB.Add;
864: RAISE FND_API.G_EXC_ERROR;
865: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
866: THEN
867: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
868: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
869: FND_MSG_PUB.Add;
866: THEN
867: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
868: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
869: FND_MSG_PUB.Add;
870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
871: END IF;
872: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
873: THEN
874: log_msg('Calling private API to insert record...');
878: *************************/
879: GMF_ACTUAL_COST_ADJUSTMENT_PVT.CREATE_ACTUAL_COST_ADJUSTMENT
880: (
881: p_api_version => p_api_version,
882: p_init_msg_list => FND_API.G_FALSE,
883: x_return_status => x_return_status,
884: x_msg_count => x_msg_count,
885: x_msg_data => x_msg_data,
886: p_adjustment_rec => p_adjustment_rec
884: x_msg_count => x_msg_count,
885: x_msg_data => x_msg_data,
886: p_adjustment_rec => p_adjustment_rec
887: );
888: IF l_return_status = FND_API.G_RET_STS_ERROR
889: THEN
890: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
891: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
892: FND_MSG_PUB.Add;
889: THEN
890: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
891: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
892: FND_MSG_PUB.Add;
893: RAISE FND_API.G_EXC_ERROR;
894: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
895: THEN
896: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
897: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
890: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
891: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
892: FND_MSG_PUB.Add;
893: RAISE FND_API.G_EXC_ERROR;
894: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
895: THEN
896: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
897: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
898: FND_MSG_PUB.Add;
895: THEN
896: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
897: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_INS');
898: FND_MSG_PUB.Add;
899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
900: END IF;
901: /******************************
902: * Standard check of p_commit. *
903: ******************************/
900: END IF;
901: /******************************
902: * Standard check of p_commit. *
903: ******************************/
904: IF FND_API.To_Boolean( p_commit )
905: THEN
906: COMMIT WORK;
907: END IF;
908: /**************************************************************************
913: p_count => x_msg_count,
914: p_data => x_msg_data
915: );
916: EXCEPTION
917: WHEN FND_API.G_EXC_ERROR
918: THEN
919: ROLLBACK TO CREATE_ACT_COST_ADJUSTMENT_PUB;
920: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
921: x_return_status := FND_API.G_RET_STS_ERROR ;
917: WHEN FND_API.G_EXC_ERROR
918: THEN
919: ROLLBACK TO CREATE_ACT_COST_ADJUSTMENT_PUB;
920: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
921: x_return_status := FND_API.G_RET_STS_ERROR ;
922: FND_MSG_PUB.Count_And_Get
923: (
924: p_count => x_msg_count,
925: p_data => x_msg_data
923: (
924: p_count => x_msg_count,
925: p_data => x_msg_data
926: );
927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
928: THEN
929: ROLLBACK TO CREATE_ACT_COST_ADJUSTMENT_PUB;
930: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
928: THEN
929: ROLLBACK TO CREATE_ACT_COST_ADJUSTMENT_PUB;
930: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
932: FND_MSG_PUB.Count_And_Get
933: (
934: p_count => x_msg_count,
935: p_data => x_msg_data
937: WHEN OTHERS
938: THEN
939: ROLLBACK TO CREATE_ACT_COST_ADJUSTMENT_PUB;
940: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
942: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
943: THEN
944: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
945: END IF;
980: ********************************************************************/
981: PROCEDURE UPDATE_ACTUAL_COST_ADJUSTMENT
982: (
983: p_api_version IN NUMBER,
984: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
985: p_commit IN VARCHAR2 := FND_API.G_FALSE,
986: x_return_status OUT NOCOPY VARCHAR2,
987: x_msg_count OUT NOCOPY NUMBER,
988: x_msg_data OUT NOCOPY VARCHAR2,
981: PROCEDURE UPDATE_ACTUAL_COST_ADJUSTMENT
982: (
983: p_api_version IN NUMBER,
984: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
985: p_commit IN VARCHAR2 := FND_API.G_FALSE,
986: x_return_status OUT NOCOPY VARCHAR2,
987: x_msg_count OUT NOCOPY NUMBER,
988: x_msg_data OUT NOCOPY VARCHAR2,
989: p_adjustment_rec IN OUT NOCOPY GMF_ACTUAL_COST_ADJUSTMENT_PUB.ADJUSTMENT_REC_TYPE
1011:
1012: /*************************************************************
1013: * Initialize message list if p_init_msg_list is set to TRUE. *
1014: *************************************************************/
1015: IF FND_API.to_Boolean( p_init_msg_list )
1016: THEN
1017: FND_MSG_PUB.initialize;
1018: END IF;
1019:
1019:
1020: /*************************************************
1021: * Standard call to check for call compatibility. *
1022: *************************************************/
1023: IF NOT FND_API.Compatible_API_Call
1024: (
1025: l_api_version,
1026: p_api_version,
1027: l_api_name,
1027: l_api_name,
1028: G_PKG_NAME
1029: )
1030: THEN
1031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1032: END IF;
1033:
1034: /******************************************
1035: * Initialize API return status to success *
1033:
1034: /******************************************
1035: * Initialize API return status to success *
1036: ******************************************/
1037: x_return_status := FND_API.G_RET_STS_SUCCESS;
1038: G_header_logged := 'N';
1039:
1040: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1041: THEN
1058: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1059: THEN
1060: log_msg('Return Status after validating : ' || l_return_status);
1061: END IF;
1062: IF l_return_status = FND_API.G_RET_STS_ERROR
1063: THEN
1064: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1065: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
1066: FND_MSG_PUB.Add;
1063: THEN
1064: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1065: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
1066: FND_MSG_PUB.Add;
1067: RAISE FND_API.G_EXC_ERROR;
1068: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1069: THEN
1070: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1071: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
1064: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1065: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
1066: FND_MSG_PUB.Add;
1067: RAISE FND_API.G_EXC_ERROR;
1068: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1069: THEN
1070: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1071: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
1072: FND_MSG_PUB.Add;
1069: THEN
1070: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1071: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
1072: FND_MSG_PUB.Add;
1073: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1074: END IF;
1075: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1076: THEN
1077: log_msg('Calling private API to update record...');
1081: *************************/
1082: GMF_ACTUAL_COST_ADJUSTMENT_PVT.UPDATE_ACTUAL_COST_ADJUSTMENT
1083: (
1084: p_api_version => p_api_version,
1085: p_init_msg_list => FND_API.G_FALSE,
1086: x_return_status => x_return_status,
1087: x_msg_count => x_msg_count,
1088: x_msg_data => x_msg_data,
1089: p_adjustment_rec => p_adjustment_rec
1087: x_msg_count => x_msg_count,
1088: x_msg_data => x_msg_data,
1089: p_adjustment_rec => p_adjustment_rec
1090: );
1091: IF l_return_status = FND_API.G_RET_STS_ERROR
1092: THEN
1093: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1094: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
1095: FND_MSG_PUB.Add;
1092: THEN
1093: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1094: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
1095: FND_MSG_PUB.Add;
1096: RAISE FND_API.G_EXC_ERROR;
1097: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1098: THEN
1099: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1100: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
1093: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1094: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
1095: FND_MSG_PUB.Add;
1096: RAISE FND_API.G_EXC_ERROR;
1097: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1098: THEN
1099: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1100: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
1101: FND_MSG_PUB.Add;
1098: THEN
1099: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1100: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_UPD');
1101: FND_MSG_PUB.Add;
1102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1103: END IF;
1104: /******************************
1105: * Standard check of p_commit. *
1106: ******************************/
1103: END IF;
1104: /******************************
1105: * Standard check of p_commit. *
1106: ******************************/
1107: IF FND_API.To_Boolean( p_commit )
1108: THEN
1109: COMMIT WORK;
1110: END IF;
1111: /**************************************************************************
1116: p_count => x_msg_count,
1117: p_data => x_msg_data
1118: );
1119: EXCEPTION
1120: WHEN FND_API.G_EXC_ERROR
1121: THEN
1122: ROLLBACK TO UPDATE_ACT_COST_ADJUSTMENT_PUB;
1123: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1124: x_return_status := FND_API.G_RET_STS_ERROR ;
1120: WHEN FND_API.G_EXC_ERROR
1121: THEN
1122: ROLLBACK TO UPDATE_ACT_COST_ADJUSTMENT_PUB;
1123: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1124: x_return_status := FND_API.G_RET_STS_ERROR ;
1125: FND_MSG_PUB.Count_And_Get
1126: (
1127: p_count => x_msg_count,
1128: p_data => x_msg_data
1126: (
1127: p_count => x_msg_count,
1128: p_data => x_msg_data
1129: );
1130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1131: THEN
1132: ROLLBACK TO UPDATE_ACT_COST_ADJUSTMENT_PUB;
1133: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1131: THEN
1132: ROLLBACK TO UPDATE_ACT_COST_ADJUSTMENT_PUB;
1133: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1135: FND_MSG_PUB.Count_And_Get
1136: (
1137: p_count => x_msg_count,
1138: p_data => x_msg_data
1140: WHEN OTHERS
1141: THEN
1142: ROLLBACK TO UPDATE_ACT_COST_ADJUSTMENT_PUB;
1143: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1145: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1146: THEN
1147: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1148: END IF;
1183: ********************************************************************/
1184: PROCEDURE DELETE_ACTUAL_COST_ADJUSTMENT
1185: (
1186: p_api_version IN NUMBER,
1187: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1188: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1189: x_return_status OUT NOCOPY VARCHAR2,
1190: x_msg_count OUT NOCOPY NUMBER,
1191: x_msg_data OUT NOCOPY VARCHAR2,
1184: PROCEDURE DELETE_ACTUAL_COST_ADJUSTMENT
1185: (
1186: p_api_version IN NUMBER,
1187: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1188: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1189: x_return_status OUT NOCOPY VARCHAR2,
1190: x_msg_count OUT NOCOPY NUMBER,
1191: x_msg_data OUT NOCOPY VARCHAR2,
1192: p_adjustment_rec IN OUT NOCOPY GMF_ACTUAL_COST_ADJUSTMENT_PUB.ADJUSTMENT_REC_TYPE
1214:
1215: /*************************************************************
1216: * Initialize message list if p_init_msg_list is set to TRUE. *
1217: *************************************************************/
1218: IF FND_API.to_Boolean( p_init_msg_list )
1219: THEN
1220: FND_MSG_PUB.initialize;
1221: END IF;
1222:
1222:
1223: /*************************************************
1224: * Standard call to check for call compatibility. *
1225: *************************************************/
1226: IF NOT FND_API.Compatible_API_Call
1227: (
1228: l_api_version,
1229: p_api_version,
1230: l_api_name,
1230: l_api_name,
1231: G_PKG_NAME
1232: )
1233: THEN
1234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1235: END IF;
1236:
1237: /******************************************
1238: * Initialize API return status to success *
1236:
1237: /******************************************
1238: * Initialize API return status to success *
1239: ******************************************/
1240: x_return_status := FND_API.G_RET_STS_SUCCESS;
1241: G_header_logged := 'N';
1242:
1243: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1244: THEN
1261: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1262: THEN
1263: log_msg('Return Status after validating : ' || l_return_status);
1264: END IF;
1265: IF l_return_status = FND_API.G_RET_STS_ERROR
1266: THEN
1267: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1268: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
1269: FND_MSG_PUB.Add;
1266: THEN
1267: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1268: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
1269: FND_MSG_PUB.Add;
1270: RAISE FND_API.G_EXC_ERROR;
1271: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1272: THEN
1273: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1274: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
1267: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1268: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
1269: FND_MSG_PUB.Add;
1270: RAISE FND_API.G_EXC_ERROR;
1271: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1272: THEN
1273: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1274: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
1275: FND_MSG_PUB.Add;
1272: THEN
1273: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1274: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
1275: FND_MSG_PUB.Add;
1276: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1277: END IF;
1278: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1279: THEN
1280: log_msg('Calling private API to delete record...');
1284: *************************/
1285: GMF_ACTUAL_COST_ADJUSTMENT_PVT.DELETE_ACTUAL_COST_ADJUSTMENT
1286: (
1287: p_api_version => p_api_version,
1288: p_init_msg_list => FND_API.G_FALSE,
1289: x_return_status => x_return_status,
1290: x_msg_count => x_msg_count,
1291: x_msg_data => x_msg_data,
1292: p_adjustment_rec => p_adjustment_rec
1290: x_msg_count => x_msg_count,
1291: x_msg_data => x_msg_data,
1292: p_adjustment_rec => p_adjustment_rec
1293: );
1294: IF l_return_status = FND_API.G_RET_STS_ERROR
1295: THEN
1296: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1297: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
1298: FND_MSG_PUB.Add;
1295: THEN
1296: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1297: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
1298: FND_MSG_PUB.Add;
1299: RAISE FND_API.G_EXC_ERROR;
1300: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1301: THEN
1302: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1303: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
1296: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1297: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
1298: FND_MSG_PUB.Add;
1299: RAISE FND_API.G_EXC_ERROR;
1300: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1301: THEN
1302: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1303: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
1304: FND_MSG_PUB.Add;
1301: THEN
1302: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1303: FND_MESSAGE.SET_NAME('GMF','GMF_API_NO_ROWS_DEL');
1304: FND_MSG_PUB.Add;
1305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1306: END IF;
1307: /******************************
1308: * Standard check of p_commit. *
1309: ******************************/
1306: END IF;
1307: /******************************
1308: * Standard check of p_commit. *
1309: ******************************/
1310: IF FND_API.To_Boolean( p_commit )
1311: THEN
1312: COMMIT WORK;
1313: END IF;
1314: /**************************************************************************
1319: p_count => x_msg_count,
1320: p_data => x_msg_data
1321: );
1322: EXCEPTION
1323: WHEN FND_API.G_EXC_ERROR
1324: THEN
1325: ROLLBACK TO DELETE_ACT_COST_ADJUSTMENT_PUB;
1326: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1327: x_return_status := FND_API.G_RET_STS_ERROR ;
1323: WHEN FND_API.G_EXC_ERROR
1324: THEN
1325: ROLLBACK TO DELETE_ACT_COST_ADJUSTMENT_PUB;
1326: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1327: x_return_status := FND_API.G_RET_STS_ERROR ;
1328: FND_MSG_PUB.Count_And_Get
1329: (
1330: p_count => x_msg_count,
1331: p_data => x_msg_data
1329: (
1330: p_count => x_msg_count,
1331: p_data => x_msg_data
1332: );
1333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1334: THEN
1335: ROLLBACK TO DELETE_ACT_COST_ADJUSTMENT_PUB;
1336: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1334: THEN
1335: ROLLBACK TO DELETE_ACT_COST_ADJUSTMENT_PUB;
1336: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1338: FND_MSG_PUB.Count_And_Get
1339: (
1340: p_count => x_msg_count,
1341: p_data => x_msg_data
1343: WHEN OTHERS
1344: THEN
1345: ROLLBACK TO DELETE_ACT_COST_ADJUSTMENT_PUB;
1346: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1348: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1349: THEN
1350: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1351: END IF;
1386: ********************************************************************/
1387: PROCEDURE GET_ACTUAL_COST_ADJUSTMENT
1388: (
1389: p_api_version IN NUMBER,
1390: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1391: x_return_status OUT NOCOPY VARCHAR2,
1392: x_msg_count OUT NOCOPY NUMBER,
1393: x_msg_data OUT NOCOPY VARCHAR2,
1394: p_adjustment_rec IN OUT NOCOPY GMF_ACTUAL_COST_ADJUSTMENT_PUB.ADJUSTMENT_REC_TYPE
1411:
1412: /*************************************************************
1413: * Initialize message list if p_init_msg_list is set to TRUE. *
1414: *************************************************************/
1415: IF FND_API.to_Boolean( p_init_msg_list )
1416: THEN
1417: FND_MSG_PUB.initialize;
1418: END IF;
1419:
1419:
1420: /*************************************************
1421: * Standard call to check for call compatibility. *
1422: *************************************************/
1423: IF NOT FND_API.Compatible_API_Call
1424: (
1425: l_api_version,
1426: p_api_version,
1427: l_api_name,
1427: l_api_name,
1428: G_PKG_NAME
1429: )
1430: THEN
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1432: END IF;
1433:
1434: /******************************************
1435: * Initialize API return status to success *
1433:
1434: /******************************************
1435: * Initialize API return status to success *
1436: ******************************************/
1437: x_return_status := FND_API.G_RET_STS_SUCCESS;
1438: G_header_logged := 'N';
1439:
1440: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1441: THEN
1458: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1459: THEN
1460: log_msg('Return Status after validating : ' || l_return_status);
1461: END IF;
1462: IF l_return_status = FND_API.G_RET_STS_ERROR
1463: THEN
1464: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1465: RAISE FND_API.G_EXC_ERROR;
1466: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1461: END IF;
1462: IF l_return_status = FND_API.G_RET_STS_ERROR
1463: THEN
1464: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1465: RAISE FND_API.G_EXC_ERROR;
1466: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1467: THEN
1468: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1462: IF l_return_status = FND_API.G_RET_STS_ERROR
1463: THEN
1464: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1465: RAISE FND_API.G_EXC_ERROR;
1466: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1467: THEN
1468: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1470: END IF;
1465: RAISE FND_API.G_EXC_ERROR;
1466: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1467: THEN
1468: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1470: END IF;
1471: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level
1472: THEN
1473: log_msg('Calling private API to get record...');
1477: *************************/
1478: GMF_ACTUAL_COST_ADJUSTMENT_PVT.GET_ACTUAL_COST_ADJUSTMENT
1479: (
1480: p_api_version => p_api_version,
1481: p_init_msg_list => FND_API.G_FALSE,
1482: x_return_status => x_return_status,
1483: x_msg_count => x_msg_count,
1484: x_msg_data => x_msg_data,
1485: p_adjustment_rec => p_adjustment_rec
1483: x_msg_count => x_msg_count,
1484: x_msg_data => x_msg_data,
1485: p_adjustment_rec => p_adjustment_rec
1486: );
1487: IF l_return_status = FND_API.G_RET_STS_ERROR
1488: THEN
1489: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1490: RAISE FND_API.G_EXC_ERROR;
1491: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1486: );
1487: IF l_return_status = FND_API.G_RET_STS_ERROR
1488: THEN
1489: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1490: RAISE FND_API.G_EXC_ERROR;
1491: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1492: THEN
1493: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1487: IF l_return_status = FND_API.G_RET_STS_ERROR
1488: THEN
1489: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1490: RAISE FND_API.G_EXC_ERROR;
1491: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1492: THEN
1493: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1495: END IF;
1490: RAISE FND_API.G_EXC_ERROR;
1491: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1492: THEN
1493: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1495: END IF;
1496: /**************************************************************************
1497: * Standard call to get message count and if count is 1, get message info. *
1498: **************************************************************************/
1501: p_count => x_msg_count,
1502: p_data => x_msg_data
1503: );
1504: EXCEPTION
1505: WHEN FND_API.G_EXC_ERROR
1506: THEN
1507: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1508: x_return_status := FND_API.G_RET_STS_ERROR ;
1509: FND_MSG_PUB.Count_And_Get
1504: EXCEPTION
1505: WHEN FND_API.G_EXC_ERROR
1506: THEN
1507: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1508: x_return_status := FND_API.G_RET_STS_ERROR ;
1509: FND_MSG_PUB.Count_And_Get
1510: (
1511: p_count => x_msg_count,
1512: p_data => x_msg_data
1510: (
1511: p_count => x_msg_count,
1512: p_data => x_msg_data
1513: );
1514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1515: THEN
1516: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1517: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1518: FND_MSG_PUB.Count_And_Get
1513: );
1514: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
1515: THEN
1516: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1517: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1518: FND_MSG_PUB.Count_And_Get
1519: (
1520: p_count => x_msg_count,
1521: p_data => x_msg_data
1522: );
1523: WHEN OTHERS
1524: THEN
1525: add_record_to_error_stack ( p_adjustment_rec => p_adjustment_rec );
1526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1527: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1528: THEN
1529: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1530: END IF;