[Home] [Help]
288:
289: l_recepient_id NUMBER;
290: BEGIN
291:
292: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
293:
294: -- Get the vlaues for Entity ID from Workorders table
295: -- and workorder operation id from workorder_operations table for the given work
296: -- order id and Operation seq number
300: AHL_DEBUG_PUB.debug('Convert_Name_To_Id');
301: END IF;
302:
303: IF ( (p_x_ahl_mtltxn_rec.Workorder_Id IS NULL
304: OR p_x_ahl_mtltxn_rec.Workorder_Id = FND_API.G_MISS_NUM)) THEN
305:
306: IF (p_x_ahl_mtltxn_rec.WORKORDER_NAME IS NOT NULL AND
307: p_x_ahl_mtltxn_rec.WORKORDER_NAME <> FND_API.G_MISS_CHAR)
308: THEN
303: IF ( (p_x_ahl_mtltxn_rec.Workorder_Id IS NULL
304: OR p_x_ahl_mtltxn_rec.Workorder_Id = FND_API.G_MISS_NUM)) THEN
305:
306: IF (p_x_ahl_mtltxn_rec.WORKORDER_NAME IS NOT NULL AND
307: p_x_ahl_mtltxn_rec.WORKORDER_NAME <> FND_API.G_MISS_CHAR)
308: THEN
309:
310: OPEN WORKORDER_CUR(p_x_ahl_mtltxn_rec.WORKORDER_NAME);
311: FETCH WORKORDER_CUR INTO L_WORKDET_REC;
313: THEN
314: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WORKORDER');
315: FND_MESSAGE.Set_Token('WORKORDER',p_x_ahl_mtltxn_rec.Workorder_name);
316: FND_MSG_PUB.ADD;
317: x_return_status := Fnd_Api.G_RET_STS_ERROR;
318: -- fix for re-open issue in bug# 6773241
319: ELSIF L_WORKDET_REC.JOB_STATUS_CODE<>'3' AND
320: --L_WORKDET_REC.JOB_STATUS_CODE<>'19' AND
321: L_WORKDET_REC.JOB_STATUS_CODE<>'20' AND
323: L_WORKDET_REC.JOB_STATUS_CODE<>'4' THEN
324: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_JOB_STATUS');
325: FND_MESSAGE.Set_Token('STATUS',L_WORKDET_REC.job_status_meaning);
326: FND_MSG_PUB.ADD;
327: x_return_status := Fnd_Api.G_RET_STS_ERROR;
328: ELSE
329: p_x_ahl_mtltxn_rec.Workorder_Id :=L_WORKDET_REC.WORKORDER_ID;
330: p_x_ahl_mtltxn_rec.Workorder_Status :=L_WORKDET_REC.JOB_STATUS_MEANING;
331: p_x_ahl_mtltxn_rec.Workorder_Status_Code :=L_WORKDET_REC.JOB_STATUS_CODE;
335: CLOSE WORKORDER_CUR;
336: ELSE -- both Workorder_Id and WORKORDER_NAME are NULLs
337: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_WORKORDER_ID');
338: FND_MSG_PUB.ADD;
339: x_return_status := Fnd_Api.G_RET_STS_ERROR;
340: END IF; -- p_x_ahl_mtltxn_rec.WORKORDER_NAME
341: ELSE -- workorderId is not null.
342: OPEN WORKORDER_ID_CUR(p_x_ahl_mtltxn_rec.Workorder_Id);
343: FETCH WORKORDER_ID_CUR INTO L_WORKDET_ID_REC;
345: THEN
346: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WORKORDER');
347: FND_MESSAGE.Set_Token('WORKORDER',p_x_ahl_mtltxn_rec.Workorder_Id);
348: FND_MSG_PUB.ADD;
349: x_return_status := Fnd_Api.G_RET_STS_ERROR;
350: -- fix for re-open issue in bug# 6773241
351: ELSIF L_WORKDET_ID_REC.JOB_STATUS_CODE<>'3' AND -- Released
352: --L_WORKDET_ID_REC.JOB_STATUS_CODE<>'19' AND -- Parts Hold
353: L_WORKDET_ID_REC.JOB_STATUS_CODE<>'20' AND -- pending deferral
356: THEN
357: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_JOB_STATUS');
358: FND_MESSAGE.Set_Token('STATUS',L_WORKDET_ID_REC.job_status_meaning);
359: FND_MSG_PUB.ADD;
360: x_return_status := Fnd_Api.G_RET_STS_ERROR;
361: ELSE
362: p_x_ahl_mtltxn_rec.Workorder_Id := L_WORKDET_ID_REC.WORKORDER_ID;
363: p_x_ahl_mtltxn_rec.Workorder_Status := L_WORKDET_ID_REC.JOB_STATUS_MEANING;
364: p_x_ahl_mtltxn_rec.Workorder_Status_Code := L_WORKDET_ID_REC.JOB_STATUS_CODE;
369: END IF; -- p_x_ahl_mtltxn_tbl(i).Workorder_Id
370:
371: -- Check for operation sequence number.
372: IF ( p_x_ahl_mtltxn_rec.Operation_Seq_num IS NULL
373: OR p_x_ahl_mtltxn_rec.Operation_Seq_num = FND_API.G_MISS_NUM) THEN
374: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_OPER_SEQ');
375: FND_MSG_PUB.ADD;
376: x_return_status := Fnd_Api.G_RET_STS_ERROR;
377: END IF;
372: IF ( p_x_ahl_mtltxn_rec.Operation_Seq_num IS NULL
373: OR p_x_ahl_mtltxn_rec.Operation_Seq_num = FND_API.G_MISS_NUM) THEN
374: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_OPER_SEQ');
375: FND_MSG_PUB.ADD;
376: x_return_status := Fnd_Api.G_RET_STS_ERROR;
377: END IF;
378:
379: -- Check for errors.
380: IF (x_return_status = Fnd_Api.G_RET_STS_ERROR)
376: x_return_status := Fnd_Api.G_RET_STS_ERROR;
377: END IF;
378:
379: -- Check for errors.
380: IF (x_return_status = Fnd_Api.G_RET_STS_ERROR)
381: THEN
382: RETURN; -- do not proceed for the rest of the validations.
383: END IF;
384:
382: RETURN; -- do not proceed for the rest of the validations.
383: END IF;
384:
385: IF (p_x_ahl_mtltxn_rec.Wip_Entity_Id IS NULL
386: OR p_x_ahl_mtltxn_rec.Wip_Entity_Id = FND_API.G_MISS_NUM) THEN
387: IF G_DEBUG='Y' THEN
388: AHL_DEBUG_PUB.debug('Getting WipEntity for['||p_x_ahl_mtltxn_rec.Workorder_Id||']');
389: END IF;
390: OPEN WIP_JOB_ID_CUR(p_x_ahl_mtltxn_rec.Workorder_Id);
392: IF(WIP_JOB_ID_CUR%NOTFOUND) THEN
393: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WIP_ENTITY_WO');
394: FND_MESSAGE.Set_Token('WORKORDER',p_x_ahl_mtltxn_rec.Workorder_Id);
395: FND_MSG_PUB.ADD;
396: x_return_status := Fnd_Api.G_RET_STS_ERROR;
397: END IF;
398: CLOSE WIP_JOB_ID_CUR;
399: END IF;
400:
406: END IF;
407:
408:
409: IF (p_x_ahl_mtltxn_rec.Workorder_Operation_Id IS NULL
410: OR p_x_ahl_mtltxn_rec.Workorder_Operation_Id = FND_API.G_MISS_NUM) THEN
411: IF G_DEBUG='Y' THEN
412: AHL_DEBUG_PUB.debug('selecting woopid for['||p_x_ahl_mtltxn_rec.Workorder_Id||','||p_x_ahl_mtltxn_rec.Operation_Seq_num||']');
413:
414: END IF;
419: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WO_OP');
420: FND_MESSAGE.Set_Token('WORKORDER',p_x_ahl_mtltxn_rec.Workorder_Id);
421: FND_MESSAGE.Set_Token('OP_SEQUENCE',p_x_ahl_mtltxn_rec.Operation_Seq_num);
422: FND_MSG_PUB.ADD;
423: x_return_status := Fnd_Api.G_RET_STS_ERROR;
424: END IF;
425: CLOSE WO_OP_CUR;
426: END IF;
427: IF G_DEBUG='Y' THEN
429: END IF;
430:
431: --Convert Transaction Type Name into Transaction Type Id
432: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Id IS NULL
433: OR p_x_ahl_mtltxn_rec.Transaction_Type_Id = FND_API.G_MISS_NUM) THEN
434: IF G_DEBUG='Y' THEN
435: AHL_DEBUG_PUB.debug('Converting Txn type name['||p_x_ahl_mtltxn_rec.Transaction_Type_Name||']');
436: END IF;
437: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Name IS NULL
434: IF G_DEBUG='Y' THEN
435: AHL_DEBUG_PUB.debug('Converting Txn type name['||p_x_ahl_mtltxn_rec.Transaction_Type_Name||']');
436: END IF;
437: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Name IS NULL
438: OR p_x_ahl_mtltxn_rec.Transaction_Type_Name = FND_API.G_MISS_CHAR) THEN
439: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_TXN_TYPE');
440: FND_MSG_PUB.ADD;
441: x_return_status := Fnd_Api.G_RET_STS_ERROR;
442: ELSE
437: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Name IS NULL
438: OR p_x_ahl_mtltxn_rec.Transaction_Type_Name = FND_API.G_MISS_CHAR) THEN
439: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_TXN_TYPE');
440: FND_MSG_PUB.ADD;
441: x_return_status := Fnd_Api.G_RET_STS_ERROR;
442: ELSE
443: OPEN Transaction_Type_Cur(p_x_ahl_mtltxn_rec.Transaction_Type_Name);
444: FETCH Transaction_Type_Cur INTO p_x_ahl_mtltxn_rec.Transaction_Type_Id ;
445: IF(Transaction_Type_Cur%NOTFOUND) THEN
445: IF(Transaction_Type_Cur%NOTFOUND) THEN
446: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_TXN_TYPE');
447: FND_MESSAGE.Set_Token('TXN_TYPE',p_x_ahl_mtltxn_rec.Transaction_Type_Name);
448: FND_MSG_PUB.ADD;
449: x_return_status := Fnd_Api.G_RET_STS_ERROR;
450: END IF;
451: CLOSE Transaction_Type_Cur;
452: END IF;
453: END IF;
455: AHL_DEBUG_PUB.debug('after the txn type select');
456: END IF;
457:
458: -- Convert item segments into item id
459: IF (p_x_ahl_mtltxn_rec.Inventory_Item_Id IS NULL OR p_x_ahl_mtltxn_rec.Inventory_Item_Id = FND_API.G_MISS_NUM) THEN
460: IF G_DEBUG='Y' THEN
461: AHL_DEBUG_PUB.debug('Converting item for['||to_char(p_x_ahl_mtltxn_rec.Organization_Id)||','||p_x_ahl_mtltxn_rec.Inventory_Item_Segments||']');
462: END IF;
463:
461: AHL_DEBUG_PUB.debug('Converting item for['||to_char(p_x_ahl_mtltxn_rec.Organization_Id)||','||p_x_ahl_mtltxn_rec.Inventory_Item_Segments||']');
462: END IF;
463:
464: IF (p_x_ahl_mtltxn_rec.Inventory_Item_Segments IS NULL
465: OR p_x_ahl_mtltxn_rec.Inventory_Item_Segments = FND_API.G_MISS_CHAR) THEN
466: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_ITEM');
467: FND_MSG_PUB.ADD;
468: RAISE FND_API.G_EXC_ERROR;
469: ELSE
464: IF (p_x_ahl_mtltxn_rec.Inventory_Item_Segments IS NULL
465: OR p_x_ahl_mtltxn_rec.Inventory_Item_Segments = FND_API.G_MISS_CHAR) THEN
466: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_ITEM');
467: FND_MSG_PUB.ADD;
468: RAISE FND_API.G_EXC_ERROR;
469: ELSE
470: OPEN Item_Cur(p_x_ahl_mtltxn_rec.Organization_Id,
471: p_x_ahl_mtltxn_rec.Inventory_Item_Segments);
472: FETCH Item_Cur INTO p_x_ahl_mtltxn_rec.Inventory_Item_Id ;
473: IF(Item_Cur%NOTFOUND) THEN
474: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_ITEM');
475: FND_MESSAGE.Set_Token('FIELD',p_x_ahl_mtltxn_rec.Inventory_Item_Segments);
476: FND_MSG_PUB.ADD;
477: x_return_status := Fnd_Api.G_RET_STS_ERROR;
478: END IF;
479: CLOSE Item_Cur;
480: END IF;
481:
486: END IF;
487:
488: -- Convert Locator segments into locator id when item is locator controlled.
489: IF (p_x_ahl_mtltxn_rec.Locator_Id IS NULL
490: OR p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
491: IF (p_x_ahl_mtltxn_rec.Locator_Segments IS NOT NULL
492: AND p_x_ahl_mtltxn_rec.Locator_Segments <> FND_API.G_MISS_CHAR) THEN
493: IF G_DEBUG='Y' THEN
494: AHL_DEBUG_PUB.debug('Converting locator['||to_char(p_x_ahl_mtltxn_rec.Organization_Id)||','||p_x_ahl_mtltxn_rec.Locator_Segments||']');
488: -- Convert Locator segments into locator id when item is locator controlled.
489: IF (p_x_ahl_mtltxn_rec.Locator_Id IS NULL
490: OR p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
491: IF (p_x_ahl_mtltxn_rec.Locator_Segments IS NOT NULL
492: AND p_x_ahl_mtltxn_rec.Locator_Segments <> FND_API.G_MISS_CHAR) THEN
493: IF G_DEBUG='Y' THEN
494: AHL_DEBUG_PUB.debug('Converting locator['||to_char(p_x_ahl_mtltxn_rec.Organization_Id)||','||p_x_ahl_mtltxn_rec.Locator_Segments||']');
495: END IF;
496: OPEN Location_Cur(p_x_ahl_mtltxn_rec.Organization_Id,
502: THEN
503: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOCATION');
504: FND_MESSAGE.Set_Token('LOCATOR',p_x_ahl_mtltxn_rec.Locator_Segments);
505: FND_MSG_PUB.ADD;
506: x_return_status := Fnd_Api.G_RET_STS_ERROR;
507: ELSE
508: */
509: IF (Location_Cur%FOUND) THEN
510: p_x_ahl_mtltxn_rec.Locator_Segments := l_locator_segments;--Fix for bug number 5903275
520: AHL_DEBUG_PUB.debug('after the locator select');
521: END IF;
522:
523: -- convert reason name into reason id.
524: IF (p_x_ahl_mtltxn_rec.Reason_Id IS NULL OR p_x_ahl_mtltxn_rec.Reason_Id = FND_API.G_MISS_NUM)
525: THEN
526: IF (p_x_ahl_mtltxn_rec.Reason_Name IS NOT NULL
527: AND p_x_ahl_mtltxn_rec.Reason_Name <> FND_API.G_MISS_CHAR)
528: THEN
523: -- convert reason name into reason id.
524: IF (p_x_ahl_mtltxn_rec.Reason_Id IS NULL OR p_x_ahl_mtltxn_rec.Reason_Id = FND_API.G_MISS_NUM)
525: THEN
526: IF (p_x_ahl_mtltxn_rec.Reason_Name IS NOT NULL
527: AND p_x_ahl_mtltxn_rec.Reason_Name <> FND_API.G_MISS_CHAR)
528: THEN
529: IF G_DEBUG='Y' THEN
530: AHL_DEBUG_PUB.debug('Converting reason name'||p_x_ahl_mtltxn_rec.Reason_Name||']');
531: END IF;
534: IF(Reason_Cur%NOTFOUND) THEN
535: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_REASON');
536: FND_MESSAGE.Set_Token('REASON',p_x_ahl_mtltxn_rec.Reason_Name);
537: FND_MSG_PUB.ADD;
538: x_return_status := Fnd_Api.G_RET_STS_ERROR;
539: END IF;
540: CLOSE Reason_Cur;
541: END IF;
542:
550: --Convert Problem_code_Meaning to Problem_code incase of returns
551:
552: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.RETCOMP_TYPE) THEN
553: IF (p_x_ahl_mtltxn_rec.Problem_Code IS NULL
554: OR p_x_ahl_mtltxn_rec.Problem_Code = FND_API.G_MISS_CHAR) THEN
555: IF (p_x_ahl_mtltxn_rec.Problem_Code_Meaning IS NOT NULL
556: AND p_x_ahl_mtltxn_rec.Problem_Code_Meaning <> FND_API.G_MISS_CHAR) THEN
557: IF G_DEBUG='Y' THEN
558: AHL_DEBUG_PUB.debug('Converting Problem code['||p_x_ahl_mtltxn_rec.Problem_Code_Meaning||']');
552: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.RETCOMP_TYPE) THEN
553: IF (p_x_ahl_mtltxn_rec.Problem_Code IS NULL
554: OR p_x_ahl_mtltxn_rec.Problem_Code = FND_API.G_MISS_CHAR) THEN
555: IF (p_x_ahl_mtltxn_rec.Problem_Code_Meaning IS NOT NULL
556: AND p_x_ahl_mtltxn_rec.Problem_Code_Meaning <> FND_API.G_MISS_CHAR) THEN
557: IF G_DEBUG='Y' THEN
558: AHL_DEBUG_PUB.debug('Converting Problem code['||p_x_ahl_mtltxn_rec.Problem_Code_Meaning||']');
559:
560: END IF;
563: IF(Fnd_Lookups_Cur%NOTFOUND) THEN
564: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PROBLEM_CODE_INVALID');
565: FND_MESSAGE.Set_Token('CODE',p_x_ahl_mtltxn_rec.Problem_Code_Meaning);
566: FND_MSG_PUB.ADD;
567: x_return_status := Fnd_Api.G_RET_STS_ERROR;
568: END IF;
569: CLOSE Fnd_Lookups_Cur;
570: END IF;
571: END IF;
572: IF G_DEBUG='Y' THEN
573: AHL_DEBUG_PUB.debug('after problem code select');
574: END IF;
575: IF (p_x_ahl_mtltxn_rec.Condition_Desc IS NOT NULL
576: AND p_x_ahl_mtltxn_rec.Condition_Desc <> FND_API.G_MISS_CHAR)
577: THEN
578: IF G_DEBUG='Y' THEN
579: AHL_DEBUG_PUB.debug('Getting Condition for['||p_x_ahl_mtltxn_rec.Condition_Desc||']');
580: END IF;
584: IF(CONDITION_CUR%NOTFOUND) THEN
585: FND_MESSAGE.Set_Name('AHL','AHL_PRD_COND_INVALID');
586: FND_MESSAGE.Set_Token('CODE',p_x_ahl_mtltxn_rec.Condition_Desc);
587: FND_MSG_PUB.ADD;
588: x_return_status := Fnd_Api.G_RET_STS_ERROR;
589: END IF;
590:
591: CLOSE CONDITION_CUR;
592: END IF;
602:
603: -- nullify id and retrive id from name entered.
604: p_x_ahl_mtltxn_rec.RECEPIENT_ID := NULL;
605:
606: IF (p_x_ahl_mtltxn_rec.recepient_name IS NOT NULL AND p_x_ahl_mtltxn_rec.recepient_name <> FND_API.G_MISS_CHAR)
607: THEN
608: OPEN RECEPIENT_CUR(p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
609: FETCH RECEPIENT_CUR INTO p_x_ahl_mtltxn_rec.RECEPIENT_ID;
610: IF(RECEPIENT_CUR%NOTFOUND)
616: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_INVALID');
617: END IF;
618: FND_MESSAGE.Set_Token('RECEPIENT',p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
619: FND_MSG_PUB.ADD;
620: x_return_status := Fnd_Api.G_RET_STS_ERROR;
621: END IF;
622: CLOSE RECEPIENT_CUR;
623: END IF;
624:
623: END IF;
624:
625: ELSE
626: --if backend call.
627: IF (p_x_ahl_mtltxn_rec.recepient_name IS NOT NULL AND p_x_ahl_mtltxn_rec.recepient_name <> FND_API.G_MISS_CHAR)
628: THEN
629: -- if name is availave retrive id from name
630: OPEN RECEPIENT_CUR(p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
631: FETCH RECEPIENT_CUR INTO l_recepient_id;
638: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_INVALID');
639: END IF;
640: FND_MESSAGE.Set_Token('RECEPIENT',p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
641: FND_MSG_PUB.ADD;
642: x_return_status := Fnd_Api.G_RET_STS_ERROR;
643: ELSE
644: -- if id is available then see if this id is the same as the one retrived from the name.
645: IF(p_x_ahl_mtltxn_rec.recepient_id IS NOT NULL AND p_x_ahl_mtltxn_rec.recepient_id <> FND_API.G_MISS_NUM)
646: THEN
641: FND_MSG_PUB.ADD;
642: x_return_status := Fnd_Api.G_RET_STS_ERROR;
643: ELSE
644: -- if id is available then see if this id is the same as the one retrived from the name.
645: IF(p_x_ahl_mtltxn_rec.recepient_id IS NOT NULL AND p_x_ahl_mtltxn_rec.recepient_id <> FND_API.G_MISS_NUM)
646: THEN
647: IF(l_recepient_id <> p_x_ahl_mtltxn_rec.RECEPIENT_ID)
648: THEN
649: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.RETCOMP_TYPE)
653: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_INVALID');
654: END IF;
655: FND_MESSAGE.Set_Token('RECEPIENT',p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
656: FND_MSG_PUB.ADD;
657: x_return_status := Fnd_Api.G_RET_STS_ERROR;
658: END IF;
659: ELSE
660: -- if id is not available then populate the id with the id retrived.
661: p_x_ahl_mtltxn_rec.recepient_id:=l_recepient_id;
664: CLOSE RECEPIENT_CUR;
665: END IF;
666: END IF;
667:
668: IF(p_x_ahl_mtltxn_rec.recepient_id IS NULL OR p_x_ahl_mtltxn_rec.recepient_id = FND_API.G_MISS_NUM)
669: THEN
670: IF(NVL(FND_PROFILE.VALUE('AHL_PRD_MTX_RECEPIENT'),'N')='Y')
671: THEN
672: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.RETCOMP_TYPE)
675: ELSE
676: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_MANDATORY');
677: END IF;
678: FND_MSG_PUB.ADD;
679: x_return_status := Fnd_Api.G_RET_STS_ERROR;
680: ELSE
681: OPEN DEFAULT_USER_CUR;
682: FETCH DEFAULT_USER_CUR INTO p_x_ahl_mtltxn_rec.RECEPIENT_ID;
683: IF DEFAULT_USER_CUR%NOTFOUND
689: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_INVALID');
690: END IF;
691: FND_MESSAGE.Set_Token('RECEPIENT',p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
692: FND_MSG_PUB.ADD;
693: x_return_status := Fnd_Api.G_RET_STS_ERROR;
694: END IF;
695: CLOSE DEFAULT_USER_CUR;
696: END IF;
697: END IF;
697: END IF;
698:
699: --Convert UOM DESC into UOM
700: IF (p_x_ahl_mtltxn_rec.Uom IS NULL
701: OR p_x_ahl_mtltxn_rec.Uom = FND_API.G_MISS_CHAR) THEN
702: IF G_DEBUG='Y' THEN
703: AHL_DEBUG_PUB.debug('Converting UOM['||p_x_ahl_mtltxn_rec.Uom_Desc||']');
704:
705: END IF;
703: AHL_DEBUG_PUB.debug('Converting UOM['||p_x_ahl_mtltxn_rec.Uom_Desc||']');
704:
705: END IF;
706: IF (p_x_ahl_mtltxn_rec.Uom_Desc IS NULL
707: OR p_x_ahl_mtltxn_rec.Uom_Desc = FND_API.G_MISS_CHAR) THEN
708: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_UOM');
709: FND_MSG_PUB.ADD;
710: x_return_status := Fnd_Api.G_RET_STS_ERROR;
711: ELSE
706: IF (p_x_ahl_mtltxn_rec.Uom_Desc IS NULL
707: OR p_x_ahl_mtltxn_rec.Uom_Desc = FND_API.G_MISS_CHAR) THEN
708: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_UOM');
709: FND_MSG_PUB.ADD;
710: x_return_status := Fnd_Api.G_RET_STS_ERROR;
711: ELSE
712: OPEN Uom_Cur(p_x_ahl_mtltxn_rec.Uom_Desc);
713: FETCH Uom_Cur INTO p_x_ahl_mtltxn_rec.Uom ;
714: IF(Uom_Cur%NOTFOUND) THEN
714: IF(Uom_Cur%NOTFOUND) THEN
715: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_UOM');
716: FND_MESSAGE.Set_Token('UOM',p_x_ahl_mtltxn_rec.Uom_Desc);
717: FND_MSG_PUB.ADD;
718: x_return_status := Fnd_Api.G_RET_STS_ERROR;
719: END IF;
720: CLOSE Uom_Cur;
721: END IF;
722:
725: AHL_DEBUG_PUB.debug('after UOM select');
726:
727: END IF;
728: EXCEPTION
729: WHEN FND_API.G_EXC_ERROR THEN
730: x_return_status := Fnd_Api.G_RET_STS_ERROR;
731:
732: END Convert_Name_To_Id;
733:
726:
727: END IF;
728: EXCEPTION
729: WHEN FND_API.G_EXC_ERROR THEN
730: x_return_status := Fnd_Api.G_RET_STS_ERROR;
731:
732: END Convert_Name_To_Id;
733:
734:
741:
742: PROCEDURE PERFORM_MTL_TXN
743: (
744: p_api_version IN NUMBER := 1.0,
745: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
746: p_commit IN VARCHAR2 := FND_API.G_FALSE,
747: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
748: p_default IN VARCHAR2 := FND_API.G_FALSE,
749: p_module_type IN VARCHAR2 := NULL,
742: PROCEDURE PERFORM_MTL_TXN
743: (
744: p_api_version IN NUMBER := 1.0,
745: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
746: p_commit IN VARCHAR2 := FND_API.G_FALSE,
747: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
748: p_default IN VARCHAR2 := FND_API.G_FALSE,
749: p_module_type IN VARCHAR2 := NULL,
750: p_create_sr IN VARCHAR2,
743: (
744: p_api_version IN NUMBER := 1.0,
745: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
746: p_commit IN VARCHAR2 := FND_API.G_FALSE,
747: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
748: p_default IN VARCHAR2 := FND_API.G_FALSE,
749: p_module_type IN VARCHAR2 := NULL,
750: p_create_sr IN VARCHAR2,
751: p_x_ahl_mtltxn_tbl IN OUT NOCOPY Ahl_Mtltxn_Tbl_Type,
744: p_api_version IN NUMBER := 1.0,
745: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
746: p_commit IN VARCHAR2 := FND_API.G_FALSE,
747: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
748: p_default IN VARCHAR2 := FND_API.G_FALSE,
749: p_module_type IN VARCHAR2 := NULL,
750: p_create_sr IN VARCHAR2,
751: p_x_ahl_mtltxn_tbl IN OUT NOCOPY Ahl_Mtltxn_Tbl_Type,
752: x_return_status OUT NOCOPY VARCHAR2,
931: -- Standard start of API savepoint
932: SAVEPOINT PERFORM_MTL_TXN_PVT;
933:
934: -- Standard call to check for call compatibility
935: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
936: G_PKG_NAME) THEN
937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
938: END IF;
939: -- Initialize message list if p_init_msg_list is set to TRUE
933:
934: -- Standard call to check for call compatibility
935: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
936: G_PKG_NAME) THEN
937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
938: END IF;
939: -- Initialize message list if p_init_msg_list is set to TRUE
940: IF FND_API.To_Boolean(p_init_msg_list) THEN
941: FND_MSG_PUB.Initialize;
936: G_PKG_NAME) THEN
937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
938: END IF;
939: -- Initialize message list if p_init_msg_list is set to TRUE
940: IF FND_API.To_Boolean(p_init_msg_list) THEN
941: FND_MSG_PUB.Initialize;
942: END IF;
943:
944: -- Initialize API return status to success
941: FND_MSG_PUB.Initialize;
942: END IF;
943:
944: -- Initialize API return status to success
945: x_return_status := FND_API.G_RET_STS_SUCCESS;
946:
947: -- initialize
948: G_nonserial_ii_tbl.delete;
949:
953: Perform_MtlTxn_Pre(p_x_ahl_mtltxn_tbl => p_x_ahl_mtltxn_tbl,
954: x_msg_count => x_msg_count,
955: x_msg_data => x_msg_data,
956: x_return_status => x_return_status);
957: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
958: RAISE FND_API.G_EXC_ERROR;
959: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
961: END IF;
954: x_msg_count => x_msg_count,
955: x_msg_data => x_msg_data,
956: x_return_status => x_return_status);
957: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
958: RAISE FND_API.G_EXC_ERROR;
959: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
961: END IF;
962: END IF;
955: x_msg_data => x_msg_data,
956: x_return_status => x_return_status);
957: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
958: RAISE FND_API.G_EXC_ERROR;
959: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
961: END IF;
962: END IF;
963:
956: x_return_status => x_return_status);
957: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
958: RAISE FND_API.G_EXC_ERROR;
959: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
961: END IF;
962: END IF;
963:
964: dumpInput(p_x_ahl_mtltxn_tbl);
976: FOR i IN p_x_ahl_mtltxn_tbl.FIRST..p_x_ahl_mtltxn_tbl.LAST LOOP
977:
978: IF (p_module_type = 'JSP') THEN
979: -- Set all the Ids to null for which there is an LOV.
980: p_x_ahl_mtltxn_tbl(i).Inventory_Item_Id := FND_API.G_MISS_NUM;
981: p_x_ahl_mtltxn_tbl(i).Locator_Id := FND_API.G_MISS_NUM;
982: p_x_ahl_mtltxn_tbl(i).Reason_Id := FND_API.G_MISS_NUM;
983: p_x_ahl_mtltxn_tbl(i).Problem_Code := FND_API.G_MISS_CHAR;
984: --p_x_ahl_mtltxn_tbl(i).Uom := FND_API.G_MISS_CHAR;
977:
978: IF (p_module_type = 'JSP') THEN
979: -- Set all the Ids to null for which there is an LOV.
980: p_x_ahl_mtltxn_tbl(i).Inventory_Item_Id := FND_API.G_MISS_NUM;
981: p_x_ahl_mtltxn_tbl(i).Locator_Id := FND_API.G_MISS_NUM;
982: p_x_ahl_mtltxn_tbl(i).Reason_Id := FND_API.G_MISS_NUM;
983: p_x_ahl_mtltxn_tbl(i).Problem_Code := FND_API.G_MISS_CHAR;
984: --p_x_ahl_mtltxn_tbl(i).Uom := FND_API.G_MISS_CHAR;
985: IF (p_x_ahl_mtltxn_tbl(i).disposition_id IS NOT NULL AND
978: IF (p_module_type = 'JSP') THEN
979: -- Set all the Ids to null for which there is an LOV.
980: p_x_ahl_mtltxn_tbl(i).Inventory_Item_Id := FND_API.G_MISS_NUM;
981: p_x_ahl_mtltxn_tbl(i).Locator_Id := FND_API.G_MISS_NUM;
982: p_x_ahl_mtltxn_tbl(i).Reason_Id := FND_API.G_MISS_NUM;
983: p_x_ahl_mtltxn_tbl(i).Problem_Code := FND_API.G_MISS_CHAR;
984: --p_x_ahl_mtltxn_tbl(i).Uom := FND_API.G_MISS_CHAR;
985: IF (p_x_ahl_mtltxn_tbl(i).disposition_id IS NOT NULL AND
986: p_x_ahl_mtltxn_tbl(i).disposition_id = -1) THEN
979: -- Set all the Ids to null for which there is an LOV.
980: p_x_ahl_mtltxn_tbl(i).Inventory_Item_Id := FND_API.G_MISS_NUM;
981: p_x_ahl_mtltxn_tbl(i).Locator_Id := FND_API.G_MISS_NUM;
982: p_x_ahl_mtltxn_tbl(i).Reason_Id := FND_API.G_MISS_NUM;
983: p_x_ahl_mtltxn_tbl(i).Problem_Code := FND_API.G_MISS_CHAR;
984: --p_x_ahl_mtltxn_tbl(i).Uom := FND_API.G_MISS_CHAR;
985: IF (p_x_ahl_mtltxn_tbl(i).disposition_id IS NOT NULL AND
986: p_x_ahl_mtltxn_tbl(i).disposition_id = -1) THEN
987: -- disposition id is set to -1 to disable Disp LOV on UI.
980: p_x_ahl_mtltxn_tbl(i).Inventory_Item_Id := FND_API.G_MISS_NUM;
981: p_x_ahl_mtltxn_tbl(i).Locator_Id := FND_API.G_MISS_NUM;
982: p_x_ahl_mtltxn_tbl(i).Reason_Id := FND_API.G_MISS_NUM;
983: p_x_ahl_mtltxn_tbl(i).Problem_Code := FND_API.G_MISS_CHAR;
984: --p_x_ahl_mtltxn_tbl(i).Uom := FND_API.G_MISS_CHAR;
985: IF (p_x_ahl_mtltxn_tbl(i).disposition_id IS NOT NULL AND
986: p_x_ahl_mtltxn_tbl(i).disposition_id = -1) THEN
987: -- disposition id is set to -1 to disable Disp LOV on UI.
988: p_x_ahl_mtltxn_tbl(i).disposition_id := NULL;
986: p_x_ahl_mtltxn_tbl(i).disposition_id = -1) THEN
987: -- disposition id is set to -1 to disable Disp LOV on UI.
988: p_x_ahl_mtltxn_tbl(i).disposition_id := NULL;
989: --Sareepar, FP PIE
990: p_x_ahl_mtltxn_tbl(i).Service_Type_Code := FND_API.G_MISS_CHAR;
991: END IF;
992: END IF;
993: /*Public api changes: Moved to Convert_Name_To_Id api
994: --Check the context fields
992: END IF;
993: /*Public api changes: Moved to Convert_Name_To_Id api
994: --Check the context fields
995: IF ( (p_x_ahl_mtltxn_tbl(i).Workorder_Id IS NULL
996: OR p_x_ahl_mtltxn_tbl(i).Workorder_Id = FND_API.G_MISS_NUM)) THEN
997: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_WORKORDER_ID');
998: FND_MSG_PUB.ADD;
999: l_error := true;
1000: ELSIF ( p_x_ahl_mtltxn_tbl(i).Operation_Seq_num IS NULL
997: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_WORKORDER_ID');
998: FND_MSG_PUB.ADD;
999: l_error := true;
1000: ELSIF ( p_x_ahl_mtltxn_tbl(i).Operation_Seq_num IS NULL
1001: OR p_x_ahl_mtltxn_tbl(i).Operation_Seq_num = FND_API.G_MISS_NUM) THEN
1002: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_OPER_SEQ');
1003: FND_MSG_PUB.ADD;
1004: l_error := true;
1005: ELSE
1012: Convert_Name_To_Id(p_x_ahl_mtltxn_rec => p_x_ahl_mtltxn_tbl(i),
1013: p_module_type => p_module_type ,
1014: x_return_status => x_return_status );
1015:
1016: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1017: --l_error := true;
1018: -- raise error if mandatory paramaters missing or WO-OP
1019: -- validation fails.
1020: RAISE FND_API.G_EXC_ERROR;
1016: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1017: --l_error := true;
1018: -- raise error if mandatory paramaters missing or WO-OP
1019: -- validation fails.
1020: RAISE FND_API.G_EXC_ERROR;
1021:
1022: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1024: END IF;
1018: -- raise error if mandatory paramaters missing or WO-OP
1019: -- validation fails.
1020: RAISE FND_API.G_EXC_ERROR;
1021:
1022: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1024: END IF;
1025:
1026:
1019: -- validation fails.
1020: RAISE FND_API.G_EXC_ERROR;
1021:
1022: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1024: END IF;
1025:
1026:
1027: IF G_DEBUG='Y' THEN
1039: IF G_DEBUG='Y' THEN
1040: AHL_DEBUG_PUB.debug('After calling Validate_Txn_rec');
1041: END IF;
1042:
1043: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1044: l_error := true;
1045:
1046: IF G_DEBUG='Y' THEN
1047: AHL_DEBUG_PUB.debug('Error in Validation');
1045:
1046: IF G_DEBUG='Y' THEN
1047: AHL_DEBUG_PUB.debug('Error in Validation');
1048: END IF;
1049: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051:
1052: IF G_DEBUG='Y' THEN
1053: AHL_DEBUG_PUB.debug('Unexpected error in Validate_Txn_rec');
1046: IF G_DEBUG='Y' THEN
1047: AHL_DEBUG_PUB.debug('Error in Validation');
1048: END IF;
1049: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051:
1052: IF G_DEBUG='Y' THEN
1053: AHL_DEBUG_PUB.debug('Unexpected error in Validate_Txn_rec');
1054: END IF;
1060:
1061: END LOOP;
1062: -- End of Validation LOOP
1063: IF (l_Error) THEN
1064: RAISE FND_API.G_EXC_ERROR;
1065: END IF;
1066:
1067: -- Inteface table insert.
1068: l_txn_Header_Id := NULL;
1076: -- is reserved against a different demand source)
1077: Relieve_Serial_Reservation(p_ahl_mtl_txn_rec => p_x_ahl_mtltxn_tbl(i),
1078: x_reservation_flag => l_reservation_flag,
1079: x_return_status => x_return_status);
1080: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1081: l_error := true;
1082: RAISE FND_API.G_EXC_ERROR;
1083: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1084: l_error := true;
1078: x_reservation_flag => l_reservation_flag,
1079: x_return_status => x_return_status);
1080: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1081: l_error := true;
1082: RAISE FND_API.G_EXC_ERROR;
1083: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1084: l_error := true;
1085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1086: END IF;
1079: x_return_status => x_return_status);
1080: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1081: l_error := true;
1082: RAISE FND_API.G_EXC_ERROR;
1083: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1084: l_error := true;
1085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1086: END IF;
1087:
1081: l_error := true;
1082: RAISE FND_API.G_EXC_ERROR;
1083: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1084: l_error := true;
1085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1086: END IF;
1087:
1088: END IF;
1089:
1111: IF G_DEBUG='Y' THEN
1112: AHL_DEBUG_PUB.debug('after Sch_Mtl insert api');
1113: END IF;
1114:
1115: IF (x_return_status = FND_API.G_RET_STS_ERROR
1116: OR x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1117: CLOSE Sch_Mtl_Exists_Cur;
1118: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTLAPI_ERROR');
1119: FND_MESSAGE.Set_Token('MSG',x_msg_data);
1112: AHL_DEBUG_PUB.debug('after Sch_Mtl insert api');
1113: END IF;
1114:
1115: IF (x_return_status = FND_API.G_RET_STS_ERROR
1116: OR x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1117: CLOSE Sch_Mtl_Exists_Cur;
1118: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTLAPI_ERROR');
1119: FND_MESSAGE.Set_Token('MSG',x_msg_data);
1120: FND_MSG_PUB.ADD;
1117: CLOSE Sch_Mtl_Exists_Cur;
1118: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTLAPI_ERROR');
1119: FND_MESSAGE.Set_Token('MSG',x_msg_data);
1120: FND_MSG_PUB.ADD;
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: END IF;
1123: --END IF; -- fix for bug# 5499575
1124:
1125: END IF;
1147: AHL_DEBUG_PUB.debug('Ahl_mtltxn_id'||p_x_ahl_mtltxn_tbl(i).ahl_mtltxn_id);
1148: END IF;
1149:
1150:
1151: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1152: l_error := true;
1153: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1154: l_error := true;
1155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1149:
1150:
1151: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1152: l_error := true;
1153: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1154: l_error := true;
1155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1156: END IF;
1157:
1151: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1152: l_error := true;
1153: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1154: l_error := true;
1155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1156: END IF;
1157:
1158: END LOOP; -- End of loop for Interface table inserts
1159:
1157:
1158: END LOOP; -- End of loop for Interface table inserts
1159:
1160: IF(l_error ) THEN
1161: RAISE FND_API.G_EXC_ERROR;
1162: END IF;
1163: -- Now process the interface records
1164: IF G_DEBUG='Y' THEN
1165: AHL_DEBUG_PUB.debug('Before calling wip_mtlInterfaceProc_pub.processInterface....');
1174: mo_global.init('AHL');
1175:
1176: -- SORAO :: Changed for USAF backporting project :: Feb 2012
1177: -- modified to print return status (bug# 13689288)
1178: --IF(x_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR FND_API.G_RET_STS_ERROR ) THEN
1179: --IF(x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1180: IF G_DEBUG='Y' THEN
1181: -- AHL_DEBUG_PUB.debug('wip_mtlInterfaceProc_pub.processInterface....errored');
1182: -- AHL_DEBUG_PUB.debug('count of error msgs: ' || FND_MSG_PUB.COUNT_MSG);
1175:
1176: -- SORAO :: Changed for USAF backporting project :: Feb 2012
1177: -- modified to print return status (bug# 13689288)
1178: --IF(x_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR FND_API.G_RET_STS_ERROR ) THEN
1179: --IF(x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1180: IF G_DEBUG='Y' THEN
1181: -- AHL_DEBUG_PUB.debug('wip_mtlInterfaceProc_pub.processInterface....errored');
1182: -- AHL_DEBUG_PUB.debug('count of error msgs: ' || FND_MSG_PUB.COUNT_MSG);
1183: AHL_DEBUG_PUB.debug('After call to wip_mtlInterfaceProc_pub.processInterface...x_return_status[' || x_return_status ||']');
1182: -- AHL_DEBUG_PUB.debug('count of error msgs: ' || FND_MSG_PUB.COUNT_MSG);
1183: AHL_DEBUG_PUB.debug('After call to wip_mtlInterfaceProc_pub.processInterface...x_return_status[' || x_return_status ||']');
1184: AHL_DEBUG_PUB.debug('count of msgs: ' || FND_MSG_PUB.COUNT_MSG);
1185: END IF;
1186: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1187: --END IF;
1188:
1189: END IF;
1190:
1243: END LOOP;
1244:
1245:
1246: --IF(l_error ) THEN
1247: IF(l_error) OR (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1248: AHL_DEBUG_PUB.debug('wip_mtlInterfaceProc_pub.processInterface....errored');
1249: AHL_DEBUG_PUB.debug('count of error msgs: ' || FND_MSG_PUB.COUNT_MSG);
1250: RAISE FND_API.G_EXC_ERROR;
1251: END IF;
1246: --IF(l_error ) THEN
1247: IF(l_error) OR (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1248: AHL_DEBUG_PUB.debug('wip_mtlInterfaceProc_pub.processInterface....errored');
1249: AHL_DEBUG_PUB.debug('count of error msgs: ' || FND_MSG_PUB.COUNT_MSG);
1250: RAISE FND_API.G_EXC_ERROR;
1251: END IF;
1252:
1253: -- No errors returned by WIP API.Initialize message list to
1254: -- remove 'Txn success' message.
1251: END IF;
1252:
1253: -- No errors returned by WIP API.Initialize message list to
1254: -- remove 'Txn success' message.
1255: IF FND_API.To_Boolean(p_init_msg_list) THEN
1256: FND_MSG_PUB.Initialize;
1257: END IF;
1258:
1259: FOR i IN l_txn_Id_Tbl.FIRST..l_txn_Id_Tbl.LAST LOOP
1287: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UOMCONVERT_ERROR');
1288: FND_MESSAGE.Set_Token('UOM_FROM', p_x_ahl_mtltxn_tbl(i).uom);
1289: FND_MESSAGE.Set_Token('UOM_TO', l_uom_code);
1290: FND_MSG_PUB.ADD;
1291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1292: END IF;
1293: END IF;
1294: -- Tamal: Bug #4095376: End
1295:
1302: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTL_NOTFOUND');
1303: FND_MESSAGE.Set_Token('WO_OP',p_x_ahl_mtltxn_tbl(i).Workorder_operation_Id);
1304: FND_MESSAGE.Set_Token('INV_ITEM',p_x_ahl_mtltxn_tbl(i).Inventory_Item_Id);
1305: FND_MSG_PUB.ADD;
1306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1307: ELSE
1308:
1309: IF G_DEBUG='Y' THEN
1310: AHL_DEBUG_PUB.debug('l_completed_quantity=['||l_completed_quantity||']');
1340: -- l_nonrtn_wo_id := l_x_sr_rec_tbl(i).Nonroutine_wo_id;
1341: --END IF;
1342:
1343: --Insert a record into the AHL_WORKORDER_MTL_TXNS.
1344: IF(p_x_ahl_mtltxn_tbl(i).Qa_Collection_Id = FND_API.G_MISS_NUM OR
1345: p_x_ahl_mtltxn_tbl(i).disposition_id is NOT NULL) THEN
1346: p_x_ahl_mtltxn_tbl(i).Qa_Collection_Id := NULL;
1347: END IF;
1348: IF(l_nonrtn_wo_id = FND_API.G_MISS_NUM) THEN
1344: IF(p_x_ahl_mtltxn_tbl(i).Qa_Collection_Id = FND_API.G_MISS_NUM OR
1345: p_x_ahl_mtltxn_tbl(i).disposition_id is NOT NULL) THEN
1346: p_x_ahl_mtltxn_tbl(i).Qa_Collection_Id := NULL;
1347: END IF;
1348: IF(l_nonrtn_wo_id = FND_API.G_MISS_NUM) THEN
1349: l_nonrtn_wo_id := NULL;
1350: END IF;
1351:
1352: IF(p_x_ahl_mtltxn_tbl(i).Locator_Id = FND_API.G_MISS_NUM) THEN
1348: IF(l_nonrtn_wo_id = FND_API.G_MISS_NUM) THEN
1349: l_nonrtn_wo_id := NULL;
1350: END IF;
1351:
1352: IF(p_x_ahl_mtltxn_tbl(i).Locator_Id = FND_API.G_MISS_NUM) THEN
1353: p_x_ahl_mtltxn_tbl(i).Locator_Id := NULL;
1354: END IF;
1355:
1356: -- In case of dynamic locator creation, retrieve locator ID to populate ahl_workorder_mtl_txns table.
1376: END IF;
1377:
1378: END IF;
1379:
1380: IF(p_x_ahl_mtltxn_tbl(i).condition = FND_API.G_MISS_NUM) THEN
1381: p_x_ahl_mtltxn_tbl(i).condition := NULL;
1382: END IF;
1383: IF G_DEBUG='Y' THEN
1384: AHL_DEBUG_PUB.debug('RECEPIENT_ID'||p_x_ahl_mtltxn_tbl(i).RECEPIENT_ID);
1400: AHL_DEBUG_PUB.debug('after mtl_Txn insert api call msg=['||x_msg_data||']');
1401: END IF;
1402:
1403:
1404: IF (x_return_status = FND_API.G_RET_STS_ERROR
1405: OR x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1406: FND_MESSAGE.Set_Name('AHL','AHL_PRD_AHLMTLTXN_ERROR');
1407: FND_MESSAGE.Set_Token('MSG',x_msg_data);
1408: FND_MSG_PUB.ADD;
1401: END IF;
1402:
1403:
1404: IF (x_return_status = FND_API.G_RET_STS_ERROR
1405: OR x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1406: FND_MESSAGE.Set_Name('AHL','AHL_PRD_AHLMTLTXN_ERROR');
1407: FND_MESSAGE.Set_Token('MSG',x_msg_data);
1408: FND_MSG_PUB.ADD;
1409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1405: OR x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1406: FND_MESSAGE.Set_Name('AHL','AHL_PRD_AHLMTLTXN_ERROR');
1407: FND_MESSAGE.Set_Token('MSG',x_msg_data);
1408: FND_MSG_PUB.ADD;
1409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1410: END IF;
1411:
1412: p_x_ahl_mtltxn_tbl(i).ahl_mtltxn_id := l_x_Mtl_Txn_Id;
1413:
1426: IF G_DEBUG='Y' THEN
1427: AHL_DEBUG_PUB.debug('after PartsChange Update Material Return api:ret status=['||x_return_status||']');
1428: END IF;
1429:
1430: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1431: RAISE FND_API.G_EXC_ERROR;
1432: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1434: END IF;
1427: AHL_DEBUG_PUB.debug('after PartsChange Update Material Return api:ret status=['||x_return_status||']');
1428: END IF;
1429:
1430: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1431: RAISE FND_API.G_EXC_ERROR;
1432: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1434: END IF;
1435:
1428: END IF;
1429:
1430: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1431: RAISE FND_API.G_EXC_ERROR;
1432: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1434: END IF;
1435:
1436: IF (p_x_ahl_mtltxn_tbl(i).serial_number IS NOT NULL) THEN
1429:
1430: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1431: RAISE FND_API.G_EXC_ERROR;
1432: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1434: END IF;
1435:
1436: IF (p_x_ahl_mtltxn_tbl(i).serial_number IS NOT NULL) THEN
1437: -- for serialized instances, update part condition.
1436: IF (p_x_ahl_mtltxn_tbl(i).serial_number IS NOT NULL) THEN
1437: -- for serialized instances, update part condition.
1438: AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition
1439: (
1440: p_init_msg_list => FND_API.G_FALSE,
1441: p_commit => FND_API.G_FALSE,
1442: p_instance_id => l_instance_id_tbl(i),
1443: p_instance_condition_id => p_x_ahl_mtltxn_tbl(i).Condition,
1444: x_return_status => x_return_status,
1437: -- for serialized instances, update part condition.
1438: AHL_PRD_PARTS_CHANGE_PVT.Update_Part_Condition
1439: (
1440: p_init_msg_list => FND_API.G_FALSE,
1441: p_commit => FND_API.G_FALSE,
1442: p_instance_id => l_instance_id_tbl(i),
1443: p_instance_condition_id => p_x_ahl_mtltxn_tbl(i).Condition,
1444: x_return_status => x_return_status,
1445: x_msg_data => x_msg_data,
1449: IF G_DEBUG='Y' THEN
1450: AHL_DEBUG_PUB.debug('after PartsChange Update_Part_Condition api:ret status=['||x_return_status||']');
1451: END IF;
1452:
1453: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1454: RAISE FND_API.G_EXC_ERROR;
1455: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1457: END IF;
1450: AHL_DEBUG_PUB.debug('after PartsChange Update_Part_Condition api:ret status=['||x_return_status||']');
1451: END IF;
1452:
1453: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1454: RAISE FND_API.G_EXC_ERROR;
1455: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1457: END IF;
1458: END IF; -- serial number
1451: END IF;
1452:
1453: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1454: RAISE FND_API.G_EXC_ERROR;
1455: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1457: END IF;
1458: END IF; -- serial number
1459: -- pdoki added for Marshalling Enhancement, Start.
1452:
1453: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1454: RAISE FND_API.G_EXC_ERROR;
1455: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1457: END IF;
1458: END IF; -- serial number
1459: -- pdoki added for Marshalling Enhancement, Start.
1460: l_wo_wo_resv_flag := false;
1525: END IF;
1526: AHL_MM_RESERVATIONS_PVT.DELETE_RESERVATION
1527: (
1528: p_api_version => 1.0,
1529: p_init_msg_list => FND_API.G_FALSE,
1530: p_commit => FND_API.G_FALSE,
1531: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1532: p_module_type => null,
1533: x_return_status => x_return_status,
1526: AHL_MM_RESERVATIONS_PVT.DELETE_RESERVATION
1527: (
1528: p_api_version => 1.0,
1529: p_init_msg_list => FND_API.G_FALSE,
1530: p_commit => FND_API.G_FALSE,
1531: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1532: p_module_type => null,
1533: x_return_status => x_return_status,
1534: x_msg_count => x_msg_count,
1527: (
1528: p_api_version => 1.0,
1529: p_init_msg_list => FND_API.G_FALSE,
1530: p_commit => FND_API.G_FALSE,
1531: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1532: p_module_type => null,
1533: x_return_status => x_return_status,
1534: x_msg_count => x_msg_count,
1535: x_msg_data => x_msg_data,
1539: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1540: FND_LOG.string(G_LEVEL_STATEMENT, l_debug, 'After Delete_Reservation API...ret_status['||x_return_status||']');
1541: END IF;
1542:
1543: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1544: RAISE FND_API.G_EXC_ERROR;
1545: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1547: END IF;
1540: FND_LOG.string(G_LEVEL_STATEMENT, l_debug, 'After Delete_Reservation API...ret_status['||x_return_status||']');
1541: END IF;
1542:
1543: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1544: RAISE FND_API.G_EXC_ERROR;
1545: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1547: END IF;
1548:
1541: END IF;
1542:
1543: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1544: RAISE FND_API.G_EXC_ERROR;
1545: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1547: END IF;
1548:
1549: END IF;
1542:
1543: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1544: RAISE FND_API.G_EXC_ERROR;
1545: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1547: END IF;
1548:
1549: END IF;
1550:
1567:
1568: AHL_MM_RESERVATIONS_PVT.PROCESS_RESERVATION
1569: (
1570: p_api_version => 1.0,
1571: p_init_msg_list => FND_API.G_FALSE,
1572: p_commit => FND_API.G_FALSE,
1573: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1574: p_module_type => null,
1575: x_return_status => x_return_status,
1568: AHL_MM_RESERVATIONS_PVT.PROCESS_RESERVATION
1569: (
1570: p_api_version => 1.0,
1571: p_init_msg_list => FND_API.G_FALSE,
1572: p_commit => FND_API.G_FALSE,
1573: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1574: p_module_type => null,
1575: x_return_status => x_return_status,
1576: x_msg_count => x_msg_count,
1569: (
1570: p_api_version => 1.0,
1571: p_init_msg_list => FND_API.G_FALSE,
1572: p_commit => FND_API.G_FALSE,
1573: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1574: p_module_type => null,
1575: x_return_status => x_return_status,
1576: x_msg_count => x_msg_count,
1577: x_msg_data => x_msg_data,
1583: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1584: FND_LOG.string(G_LEVEL_STATEMENT, l_debug, 'After Process_Reservation API...ret_status['||x_return_status||']');
1585: END IF;
1586:
1587: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1588: RAISE FND_API.G_EXC_ERROR;
1589: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1591: END IF;
1584: FND_LOG.string(G_LEVEL_STATEMENT, l_debug, 'After Process_Reservation API...ret_status['||x_return_status||']');
1585: END IF;
1586:
1587: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1588: RAISE FND_API.G_EXC_ERROR;
1589: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1591: END IF;
1592:
1585: END IF;
1586:
1587: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1588: RAISE FND_API.G_EXC_ERROR;
1589: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1591: END IF;
1592:
1593: END IF;
1586:
1587: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1588: RAISE FND_API.G_EXC_ERROR;
1589: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1591: END IF;
1592:
1593: END IF;
1594:
1660:
1661: IF(l_x_sr_rec_tbl.COUNT > 0) THEN
1662: AHL_PRD_NONROUTINE_PVT.PROCESS_NONROUTINE_JOB (
1663: p_api_version => 1.0,
1664: p_commit => Fnd_Api.g_false,
1665: p_module_type => NULL,
1666: x_return_status =>x_return_status,
1667: x_msg_count =>x_msg_count,
1668: x_msg_data =>x_msg_data,
1674: AHL_DEBUG_PUB.debug('after the srvc req api call x_msg_count=['||x_msg_count||']');
1675: AHL_DEBUG_PUB.debug('after the srvc req api call msg=['||x_msg_data||']');
1676: END IF;
1677:
1678: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1679: RAISE FND_API.G_EXC_ERROR;
1680: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1682: END IF;
1675: AHL_DEBUG_PUB.debug('after the srvc req api call msg=['||x_msg_data||']');
1676: END IF;
1677:
1678: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1679: RAISE FND_API.G_EXC_ERROR;
1680: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1682: END IF;
1683:
1676: END IF;
1677:
1678: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1679: RAISE FND_API.G_EXC_ERROR;
1680: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1682: END IF;
1683:
1684: -- ANd now update the nonroutine workorder id in the workorder_mtl_Txns table
1677:
1678: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1679: RAISE FND_API.G_EXC_ERROR;
1680: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1682: END IF;
1683:
1684: -- ANd now update the nonroutine workorder id in the workorder_mtl_Txns table
1685: FOR j IN l_x_sr_rec_tbl.FIRST..l_x_sr_rec_tbl.LAST LOOP
1706: FOR i IN p_x_ahl_mtltxn_tbl.FIRST..p_x_ahl_mtltxn_tbl.LAST LOOP
1707: IF (p_x_ahl_mtltxn_tbl(i).Transaction_Type_Id = WIP_CONSTANTS.RETCOMP_TYPE AND
1708: p_x_ahl_mtltxn_tbl(i).Condition = G_AHL_MRB_CONDITION AND
1709: p_x_ahl_mtltxn_tbl(i).disposition_id IS NULL AND
1710: p_x_ahl_mtltxn_tbl(i).Qa_Collection_Id IS NOT NULL AND FND_API.to_boolean( p_commit )) THEN
1711: QA_SS_RESULTS.wrapper_fire_action
1712: (
1713: q_collection_id => p_x_ahl_mtltxn_tbl(i).Qa_Collection_Id,
1714: q_return_status => x_return_status,
1715: q_msg_count => x_msg_count,
1716: q_msg_data => x_msg_data
1717: );
1718:
1719: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1720: IF ( x_msg_data IS NULL ) THEN
1721: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_UNEXP_ERROR' );
1722: FND_MSG_PUB.add;
1723: RAISE FND_API.G_EXC_ERROR;
1719: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1720: IF ( x_msg_data IS NULL ) THEN
1721: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_UNEXP_ERROR' );
1722: FND_MSG_PUB.add;
1723: RAISE FND_API.G_EXC_ERROR;
1724: END IF;
1725: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1727: END IF;
1721: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_UNEXP_ERROR' );
1722: FND_MSG_PUB.add;
1723: RAISE FND_API.G_EXC_ERROR;
1724: END IF;
1725: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1727: END IF;
1728: END IF;
1729: END LOOP;
1722: FND_MSG_PUB.add;
1723: RAISE FND_API.G_EXC_ERROR;
1724: END IF;
1725: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1727: END IF;
1728: END IF;
1729: END LOOP;
1730: END IF;
1729: END LOOP;
1730: END IF;
1731:
1732: -- Standard check of p_commit
1733: IF FND_API.To_Boolean(p_commit) THEN
1734: COMMIT WORK;
1735: END IF;
1736: x_return_status := FND_API.G_RET_STS_SUCCESS;
1737: dumpInput(p_x_ahl_mtltxn_tbl);
1732: -- Standard check of p_commit
1733: IF FND_API.To_Boolean(p_commit) THEN
1734: COMMIT WORK;
1735: END IF;
1736: x_return_status := FND_API.G_RET_STS_SUCCESS;
1737: dumpInput(p_x_ahl_mtltxn_tbl);
1738:
1739: -- call user hook api.
1740: -- User Hooks
1742: Perform_MtlTxn_Post( p_ahl_mtltxn_tbl => p_x_ahl_mtltxn_tbl,
1743: x_msg_count => x_msg_count,
1744: x_msg_data => x_msg_data,
1745: x_return_status => x_return_status);
1746: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1747: RAISE FND_API.G_EXC_ERROR;
1748: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1750: END IF;
1743: x_msg_count => x_msg_count,
1744: x_msg_data => x_msg_data,
1745: x_return_status => x_return_status);
1746: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1747: RAISE FND_API.G_EXC_ERROR;
1748: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1750: END IF;
1751: END IF;
1744: x_msg_data => x_msg_data,
1745: x_return_status => x_return_status);
1746: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1747: RAISE FND_API.G_EXC_ERROR;
1748: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1750: END IF;
1751: END IF;
1752:
1745: x_return_status => x_return_status);
1746: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1747: RAISE FND_API.G_EXC_ERROR;
1748: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1750: END IF;
1751: END IF;
1752:
1753: -- Standard call to get message count and if count is 1, get message
1753: -- Standard call to get message count and if count is 1, get message
1754: FND_MSG_PUB.Count_And_Get
1755: ( p_count => x_msg_count,
1756: p_data => x_msg_data,
1757: p_encoded => fnd_api.g_false);
1758:
1759: --
1760: EXCEPTION
1761: WHEN FND_API.G_EXC_ERROR THEN
1757: p_encoded => fnd_api.g_false);
1758:
1759: --
1760: EXCEPTION
1761: WHEN FND_API.G_EXC_ERROR THEN
1762: x_return_status := FND_API.G_RET_STS_ERROR;
1763: --SHOW_MTX_ERRORS;
1764: Rollback to PERFORM_MTL_TXN_PVT;
1765: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1758:
1759: --
1760: EXCEPTION
1761: WHEN FND_API.G_EXC_ERROR THEN
1762: x_return_status := FND_API.G_RET_STS_ERROR;
1763: --SHOW_MTX_ERRORS;
1764: Rollback to PERFORM_MTL_TXN_PVT;
1765: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1766: p_data => x_msg_data,
1763: --SHOW_MTX_ERRORS;
1764: Rollback to PERFORM_MTL_TXN_PVT;
1765: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1766: p_data => x_msg_data,
1767: p_encoded => fnd_api.g_false);
1768:
1769:
1770: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1771: --SHOW_MTX_ERRORS;
1766: p_data => x_msg_data,
1767: p_encoded => fnd_api.g_false);
1768:
1769:
1770: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1771: --SHOW_MTX_ERRORS;
1772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1773: Rollback to PERFORM_MTL_TXN_PVT;
1774: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1768:
1769:
1770: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1771: --SHOW_MTX_ERRORS;
1772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1773: Rollback to PERFORM_MTL_TXN_PVT;
1774: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1775: p_data => x_msg_data,
1776: p_encoded => fnd_api.g_false);
1772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1773: Rollback to PERFORM_MTL_TXN_PVT;
1774: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1775: p_data => x_msg_data,
1776: p_encoded => fnd_api.g_false);
1777:
1778: WHEN OTHERS THEN
1779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1780: --SHOW_MTX_ERRORS;
1775: p_data => x_msg_data,
1776: p_encoded => fnd_api.g_false);
1777:
1778: WHEN OTHERS THEN
1779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1780: --SHOW_MTX_ERRORS;
1781: Rollback to PERFORM_MTL_TXN_PVT;
1782: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1783: p_procedure_name => 'Perform_Mtl_txn',
1783: p_procedure_name => 'Perform_Mtl_txn',
1784: p_error_text => SQLERRM);
1785: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1786: p_data => x_msg_data,
1787: p_encoded => fnd_api.g_false);
1788:
1789: END PERFORM_MTL_TXN;
1790:
1791: /**********************************************************
1866: /*
1867:
1868: EXCEPTION
1869: WHEN OTHERS THEN
1870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1871: IF G_DEBUG='Y'
1872: THEN
1873: AHL_DEBUG_PUB.debug('Exception inserting into mtl_txn' || SQLCODE);
1874: AHL_DEBUG_PUB.debug('SQLERRM:' || SQLERRM);
2286: and plan_id = p_plan_id;
2287:
2288: BEGIN
2289:
2290: x_return_status := FND_API.G_RET_STS_SUCCESS;
2291:
2292: IF G_DEBUG='Y' THEN
2293: AHL_DEBUG_PUB.enable_debug;
2294: AHL_DEBUG_PUB.debug('Ahl Validating TxnType...['||to_Char(p_x_ahl_mtltxn_rec.Transaction_Type_Id)||']');
2298: IF(p_x_ahl_mtltxn_rec.Transaction_Type_Id <> WIP_CONSTANTS.RETCOMP_TYPE AND
2299: p_x_ahl_mtltxn_rec.Transaction_Type_Id <> WIP_CONSTANTS.ISSCOMP_TYPE ) THEN
2300: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_TXNTYPE');
2301: FND_MSG_PUB.ADD;
2302: x_return_status := FND_API.G_RET_STS_ERROR;
2303: END IF;
2304: -- transaction quantity should be +ve always. Negative quantities are not
2305: -- supported currently.
2306: IF G_DEBUG='Y' THEN
2310: IF(nvl(p_x_ahl_mtltxn_rec.Quantity,0) <= 0) THEN
2311: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_QTY');
2312: FND_MESSAGE.Set_Token('QUANTITY',p_x_ahl_mtltxn_rec.Quantity);
2313: FND_MSG_PUB.ADD;
2314: x_return_status := FND_API.G_RET_STS_ERROR;
2315: END IF;
2316:
2317: IF G_DEBUG='Y' THEN
2318: AHL_DEBUG_PUB.debug('Validating Wip_Entity_id['
2331: IF G_DEBUG='Y' THEN
2332: AHL_DEBUG_PUB.debug('JOB validation failed');
2333: END IF;
2334: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WIP_ENTITY');
2335: if(p_x_ahl_mtltxn_rec.Wip_Entity_Id = FND_API.G_MISS_NUM) THEN
2336: p_x_ahl_mtltxn_rec.Wip_Entity_Id := NULL;
2337: END IF;
2338: FND_MESSAGE.Set_Token('WIP_ENTITY',p_x_ahl_mtltxn_rec.Wip_Entity_Id);
2339: FND_MSG_PUB.ADD;
2336: p_x_ahl_mtltxn_rec.Wip_Entity_Id := NULL;
2337: END IF;
2338: FND_MESSAGE.Set_Token('WIP_ENTITY',p_x_ahl_mtltxn_rec.Wip_Entity_Id);
2339: FND_MSG_PUB.ADD;
2340: x_return_status := FND_API.G_RET_STS_ERROR;
2341: CLOSE AHL_WIPJOB_CUR;
2342: RETURN;
2343: ELSE
2344: -- Assign visit ID to mtl_txn_rec.
2343: ELSE
2344: -- Assign visit ID to mtl_txn_rec.
2345: -- Added post 11.5.10.
2346: IF (p_x_ahl_mtltxn_rec.target_visit_id IS NULL OR
2347: p_x_ahl_mtltxn_rec.target_visit_id = FND_API.G_MISS_NUM) THEN
2348: p_x_ahl_mtltxn_rec.target_visit_id := l_visit_id;
2349: END IF;
2350: --
2351:
2362: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_JOB_STATUS');
2363: --FND_MESSAGE.Set_Token('STATUS',l_job_status);
2364: FND_MESSAGE.Set_Token('STATUS', p_x_ahl_mtltxn_rec.Workorder_Status);
2365: FND_MSG_PUB.ADD;
2366: x_return_status := FND_API.G_RET_STS_ERROR;
2367: END IF;
2368: ELSE
2369: -- issue case.
2370: IF(l_job_status <> C_JOB_RELEASED
2375: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_JOB_STATUS');
2376: --FND_MESSAGE.Set_Token('STATUS',l_job_status);
2377: FND_MESSAGE.Set_Token('STATUS', p_x_ahl_mtltxn_rec.Workorder_Status);
2378: FND_MSG_PUB.ADD;
2379: x_return_status := FND_API.G_RET_STS_ERROR;
2380: END IF;
2381: END IF;
2382: END IF;
2383: CLOSE AHL_WIPJOB_CUR;
2398: FND_MESSAGE.Set_Token('WO',p_x_ahl_mtltxn_rec.Workorder_Id);
2399: FND_MESSAGE.Set_Token('SEQ',p_x_ahl_mtltxn_rec.Operation_Seq_Num);
2400: FND_MESSAGE.Set_Token('OP',p_x_ahl_mtltxn_rec.Workorder_Operation_Id);
2401: FND_MSG_PUB.ADD;
2402: x_return_status := FND_API.G_RET_STS_ERROR;
2403: END IF;
2404: CLOSE AHL_WORKORDER_OPER_CUR;
2405:
2406: IF G_DEBUG='Y' THEN
2447: x_eam_item_type_id, l_primary_uom_code,
2448: l_concatenated_segments;
2449: IF(AHL_ITEM_ID_CUR%NOTFOUND) THEN
2450: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_ITEM');
2451: if(p_x_ahl_mtltxn_rec.Inventory_Item_Id = FND_API.G_MISS_NUM) THEN
2452: p_x_ahl_mtltxn_rec.Inventory_Item_Id := NULL;
2453: END IF;
2454: FND_MESSAGE.Set_Token('FIELD',p_x_ahl_mtltxn_rec.Inventory_Item_Id);
2455: FND_MSG_PUB.ADD;
2452: p_x_ahl_mtltxn_rec.Inventory_Item_Id := NULL;
2453: END IF;
2454: FND_MESSAGE.Set_Token('FIELD',p_x_ahl_mtltxn_rec.Inventory_Item_Id);
2455: FND_MSG_PUB.ADD;
2456: x_return_status := FND_API.G_RET_STS_ERROR;
2457: CLOSE AHL_ITEM_ID_CUR;
2458: -- Skip the rest of the validations.
2459: RETURN;
2460: END IF;
2478: IF (l_project_locator_id IS NULL) THEN
2479: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOCATOR');
2480: FND_MESSAGE.Set_Token('LOC',l_inv_locator_id);
2481: FND_MSG_PUB.ADD;
2482: RAISE FND_API.G_EXC_ERROR;
2483: ELSE
2484: p_x_ahl_mtltxn_rec.locator_id := l_project_locator_id;
2485: p_x_ahl_mtltxn_rec.subinventory_name := l_subinventory_code;
2486: END IF;
2502: OPEN wip_params_cur(p_x_ahl_mtltxn_rec.Organization_ID);
2503: FETCH wip_params_cur INTO l_def_supply_subinv, l_def_supply_locator_id;
2504: IF (wip_params_cur%FOUND) THEN
2505: IF ((p_x_ahl_mtltxn_rec.Subinventory_Name IS NULL OR
2506: p_x_ahl_mtltxn_rec.Subinventory_Name = FND_API.G_MISS_CHAR) AND
2507: l_def_supply_subinv IS NOT NULL) THEN
2508: p_x_ahl_mtltxn_rec.Subinventory_Name := l_def_supply_subinv;
2509: END IF;
2510:
2511: -- Locator.
2512: -- Added check for ER 5854712 - support dynamic locator creation.
2513: -- default only when both locator ID and Segments are null.
2514: IF ((p_x_ahl_mtltxn_rec.Locator_id IS NULL OR
2515: p_x_ahl_mtltxn_rec.Locator_id = FND_API.G_MISS_NUM) AND
2516: (p_x_ahl_mtltxn_rec.Locator_Segments IS NULL OR
2517: p_x_ahl_mtltxn_rec.Locator_Segments = FND_API.G_MISS_CHAR) AND
2518: l_def_supply_locator_id IS NOT NULL) THEN
2519: p_x_ahl_mtltxn_rec.Locator_id := l_def_supply_locator_id;
2513: -- default only when both locator ID and Segments are null.
2514: IF ((p_x_ahl_mtltxn_rec.Locator_id IS NULL OR
2515: p_x_ahl_mtltxn_rec.Locator_id = FND_API.G_MISS_NUM) AND
2516: (p_x_ahl_mtltxn_rec.Locator_Segments IS NULL OR
2517: p_x_ahl_mtltxn_rec.Locator_Segments = FND_API.G_MISS_CHAR) AND
2518: l_def_supply_locator_id IS NOT NULL) THEN
2519: p_x_ahl_mtltxn_rec.Locator_id := l_def_supply_locator_id;
2520: END IF;
2521:
2528: END IF;
2529:
2530: -- If the item is of serial controlled check if the serial numebr is null
2531: IF((p_x_ahl_mtltxn_rec.Serial_Number IS NULL
2532: OR p_x_ahl_mtltxn_rec.Serial_Number = FND_API.G_MISS_CHAR)
2533: AND (nvl(l_serial_Control,0) <> nvl(C_NO_SERIAL_CONTROL,0)) ) THEN
2534: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SRLNUM');
2535: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
2536: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2534: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SRLNUM');
2535: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
2536: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2537: FND_MSG_PUB.ADD;
2538: x_return_status := FND_API.G_RET_STS_ERROR;
2539: END IF;
2540:
2541: IF (p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL AND
2542: p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR AND
2538: x_return_status := FND_API.G_RET_STS_ERROR;
2539: END IF;
2540:
2541: IF (p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL AND
2542: p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR AND
2543: nvl(l_serial_Control,1) = 1) THEN
2544: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SRLNUM_NOTMAND');
2545: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
2546: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2544: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SRLNUM_NOTMAND');
2545: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
2546: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2547: FND_MSG_PUB.ADD;
2548: x_return_status := FND_API.G_RET_STS_ERROR;
2549: END IF;
2550:
2551: -- Added for FP bug# 5903318.
2552: IF G_DEBUG='Y' THEN
2555:
2556: -- Validate Create WO Option lookup code.
2557: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.RETCOMP_TYPE) THEN
2558: IF (p_x_ahl_mtltxn_rec.create_wo_option IS NULL OR
2559: p_x_ahl_mtltxn_rec.create_wo_option = FND_API.G_MISS_CHAR) THEN
2560: IF (nvl(l_serial_Control,0) = C_NO_SERIAL_CONTROL) THEN
2561: p_x_ahl_mtltxn_rec.create_wo_option := 'CREATE_SR_NO';
2562: ELSE
2563: -- serialized.
2571: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_LOOKUP');
2572: FND_MESSAGE.Set_Token('LCODE',p_x_ahl_mtltxn_rec.create_wo_option);
2573: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2574: FND_MSG_PUB.ADD;
2575: x_return_status := FND_API.G_RET_STS_ERROR;
2576: END IF;
2577: CLOSE create_wo_cur;
2578: END IF;
2579:
2588: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NONSRL_WO_OPT');
2589: FND_MESSAGE.Set_Token('WO_OPT',l_fnd_meaning);
2590: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2591: FND_MSG_PUB.ADD;
2592: x_return_status := FND_API.G_RET_STS_ERROR;
2593: END IF;
2594: END IF;
2595: END IF;
2596: -- End changes for FP bug# 5903318.
2595: END IF;
2596: -- End changes for FP bug# 5903318.
2597:
2598: -- Validate ServiceType Sareepar, FP PIE
2599: IF (p_x_ahl_mtltxn_rec.service_type IS NOT NULL AND p_x_ahl_mtltxn_rec.service_type <> FND_API.G_MISS_CHAR) THEN
2600: OPEN service_type_code_cur( p_x_ahl_mtltxn_rec.service_type);
2601: FETCH service_type_code_cur INTO p_x_ahl_mtltxn_rec.service_type_code;
2602: IF(service_type_code_cur%NOTFOUND) THEN
2603: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SERVICE_TYPE_INVALID');
2603: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SERVICE_TYPE_INVALID');
2604: FND_MSG_PUB.ADD;
2605: END IF;
2606: CLOSE service_type_code_cur;
2607: ELSIF(p_x_ahl_mtltxn_rec.service_type = FND_API.G_MISS_CHAR) THEN
2608: p_x_ahl_mtltxn_rec.service_type_code := NULL;
2609: END IF;
2610:
2611: IF G_DEBUG='Y' THEN
2613: END IF;
2614:
2615: -- If the item is of lot controlled check if the lot number is null
2616: IF((p_x_ahl_mtltxn_rec.Lot_Number IS NULL
2617: OR p_x_ahl_mtltxn_rec.Lot_Number = FND_API.G_MISS_CHAR)
2618: AND (l_lot_Control <> C_NO_LOT_CONTROL) ) THEN
2619: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOT');
2620: FND_MESSAGE.Set_Token('LOT',p_x_ahl_mtltxn_rec.Lot_Number);
2621: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2619: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOT');
2620: FND_MESSAGE.Set_Token('LOT',p_x_ahl_mtltxn_rec.Lot_Number);
2621: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2622: FND_MSG_PUB.ADD;
2623: x_return_status := FND_API.G_RET_STS_ERROR;
2624: END IF;
2625: -- validate lot number.
2626: IF ((p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL AND
2627: p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR)
2623: x_return_status := FND_API.G_RET_STS_ERROR;
2624: END IF;
2625: -- validate lot number.
2626: IF ((p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL AND
2627: p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR)
2628: AND (l_lot_Control <> C_NO_LOT_CONTROL) ) THEN
2629: OPEN mtl_lot_num_csr(p_x_ahl_mtltxn_rec.organization_id,
2630: p_x_ahl_mtltxn_rec.inventory_item_id,
2631: p_x_ahl_mtltxn_rec.Lot_Number);
2634: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOT');
2635: FND_MESSAGE.Set_Token('LOT',p_x_ahl_mtltxn_rec.Lot_Number);
2636: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2637: FND_MSG_PUB.ADD;
2638: x_return_status := FND_API.G_RET_STS_ERROR;
2639: END IF;
2640: CLOSE mtl_lot_num_csr;
2641: END IF;
2642:
2641: END IF;
2642:
2643: -- raise error if item is not lot controlled.
2644: IF ((p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL AND
2645: p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR)
2646: AND (l_lot_Control = C_NO_LOT_CONTROL) ) THEN
2647: FND_MESSAGE.Set_Name('AHL','AHL_PRD_LOT_NOTNULL');
2648: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2649: FND_MSG_PUB.ADD;
2646: AND (l_lot_Control = C_NO_LOT_CONTROL) ) THEN
2647: FND_MESSAGE.Set_Name('AHL','AHL_PRD_LOT_NOTNULL');
2648: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2649: FND_MSG_PUB.ADD;
2650: x_return_status := FND_API.G_RET_STS_ERROR;
2651: END IF;
2652:
2653: -- If the locator controlled is true at the item level or sub inventory level
2654: -- check if the locator id is given or not.
2660:
2661: END IF;
2662:
2663: IF(p_x_ahl_mtltxn_rec.Locator_Id IS NULL
2664: OR p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
2665: IF (l_location_Control <> C_NO_LOCATOR_CONTROL) THEN
2666: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOCATOR');
2667: if(p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
2668: p_x_ahl_mtltxn_rec.Locator_Id := NULL;
2663: IF(p_x_ahl_mtltxn_rec.Locator_Id IS NULL
2664: OR p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
2665: IF (l_location_Control <> C_NO_LOCATOR_CONTROL) THEN
2666: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOCATOR');
2667: if(p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
2668: p_x_ahl_mtltxn_rec.Locator_Id := NULL;
2669: END IF;
2670: FND_MESSAGE.Set_Token('LOC',p_x_ahl_mtltxn_rec.Locator_Id);
2671: FND_MSG_PUB.ADD;
2668: p_x_ahl_mtltxn_rec.Locator_Id := NULL;
2669: END IF;
2670: FND_MESSAGE.Set_Token('LOC',p_x_ahl_mtltxn_rec.Locator_Id);
2671: FND_MSG_PUB.ADD;
2672: x_return_status := FND_API.G_RET_STS_ERROR;
2673: END IF;
2674: ELSE
2675: ****************************************************************/
2676: IF (p_x_ahl_mtltxn_rec.Locator_Id IS NOT NULL AND
2673: END IF;
2674: ELSE
2675: ****************************************************************/
2676: IF (p_x_ahl_mtltxn_rec.Locator_Id IS NOT NULL AND
2677: p_x_ahl_mtltxn_rec.Locator_Id <> FND_API.G_MISS_NUM) THEN
2678: OPEN AHL_LOCATOR_CUR(p_x_ahl_mtltxn_rec.Organization_ID,
2679: p_x_ahl_mtltxn_rec.Locator_Id,
2680: p_x_ahl_mtltxn_rec.Subinventory_Name);
2681: FETCH AHL_LOCATOR_CUR INTO l_Count;
2680: p_x_ahl_mtltxn_rec.Subinventory_Name);
2681: FETCH AHL_LOCATOR_CUR INTO l_Count;
2682: IF(AHL_LOCATOR_CUR%NOTFOUND) THEN
2683: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOCATOR');
2684: if(p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
2685: p_x_ahl_mtltxn_rec.Locator_Id := NULL;
2686: END IF;
2687: FND_MESSAGE.Set_Token('LOC',p_x_ahl_mtltxn_rec.Locator_Id);
2688: FND_MSG_PUB.ADD;
2685: p_x_ahl_mtltxn_rec.Locator_Id := NULL;
2686: END IF;
2687: FND_MESSAGE.Set_Token('LOC',p_x_ahl_mtltxn_rec.Locator_Id);
2688: FND_MSG_PUB.ADD;
2689: x_return_status := FND_API.G_RET_STS_ERROR;
2690: END IF;
2691: CLOSE AHL_LOCATOR_CUR;
2692: END IF;
2693:
2699: -- If item is revision-controlled, then verify revision is NOT NULL and is valid
2700: -- If item is not revision-controlled, then verify revision is NULL
2701: IF (nvl(l_revision_control, -1) = 2)
2702: THEN
2703: IF (p_x_ahl_mtltxn_rec.Revision IS NULL OR p_x_ahl_mtltxn_rec.Revision = FND_API.G_MISS_CHAR)
2704: THEN
2705: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_REVISION');
2706: FND_MESSAGE.Set_Token('REVISION',p_x_ahl_mtltxn_rec.Revision);
2707: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2705: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_REVISION');
2706: FND_MESSAGE.Set_Token('REVISION',p_x_ahl_mtltxn_rec.Revision);
2707: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2708: FND_MSG_PUB.ADD;
2709: x_return_status := FND_API.G_RET_STS_ERROR;
2710: ELSE
2711: OPEN AHL_REVISION_CUR
2712: (
2713: p_x_ahl_mtltxn_rec.Organization_ID,
2720: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_REVISION');
2721: FND_MESSAGE.Set_Token('REVISION',p_x_ahl_mtltxn_rec.Revision);
2722: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2723: FND_MSG_PUB.ADD;
2724: x_return_status := FND_API.G_RET_STS_ERROR;
2725: END IF;
2726: CLOSE AHL_REVISION_CUR;
2727: END IF;
2728: ELSE
2725: END IF;
2726: CLOSE AHL_REVISION_CUR;
2727: END IF;
2728: ELSE
2729: IF (p_x_ahl_mtltxn_rec.Revision IS NOT NULL AND p_x_ahl_mtltxn_rec.Revision <> FND_API.G_MISS_CHAR)
2730: THEN
2731: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REVNUM_NOTMAND');
2732: FND_MESSAGE.Set_Token('REV',p_x_ahl_mtltxn_rec.Revision);
2733: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2731: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REVNUM_NOTMAND');
2732: FND_MESSAGE.Set_Token('REV',p_x_ahl_mtltxn_rec.Revision);
2733: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2734: FND_MSG_PUB.ADD;
2735: x_return_status := FND_API.G_RET_STS_ERROR;
2736: END IF;
2737: END IF;
2738: -- Tamal: Bug #4091154: End
2739:
2738: -- Tamal: Bug #4091154: End
2739:
2740: --Reason should be valid
2741: IF(p_x_ahl_mtltxn_rec.Reason_Id IS NOT NULL AND
2742: p_x_ahl_mtltxn_rec.Reason_Id <> FND_API.G_MISS_NUM) THEN
2743: OPEN AHL_REASON_CUR(p_x_ahl_mtltxn_rec.Reason_Id);
2744: FETCH AHL_REASON_CUR INTO l_Count;
2745: IF(AHL_REASON_CUR%NOTFOUND) THEN
2746: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVLD_REASON');
2745: IF(AHL_REASON_CUR%NOTFOUND) THEN
2746: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVLD_REASON');
2747: FND_MESSAGE.Set_Token('REASON',p_x_ahl_mtltxn_rec.Revision);
2748: FND_MSG_PUB.ADD;
2749: x_return_status := FND_API.G_RET_STS_ERROR;
2750: END IF;
2751: CLOSE AHL_REASON_CUR;
2752: END IF;
2753:
2756: OPEN Condition_Cur(p_x_ahl_mtltxn_rec.Condition);
2757: FETCH Condition_Cur INTO l_Count;
2758: IF(Condition_Cur%NOTFOUND) THEN
2759: FND_MESSAGE.Set_Name('AHL','AHL_PRD_COND_INVALID');
2760: if(p_x_ahl_mtltxn_rec.Condition = FND_API.G_MISS_NUM) THEN
2761: p_x_ahl_mtltxn_rec.Condition := NULL;
2762: END IF;
2763: FND_MESSAGE.Set_Token('CODE',p_x_ahl_mtltxn_rec.Condition);
2764: FND_MSG_PUB.ADD;
2761: p_x_ahl_mtltxn_rec.Condition := NULL;
2762: END IF;
2763: FND_MESSAGE.Set_Token('CODE',p_x_ahl_mtltxn_rec.Condition);
2764: FND_MSG_PUB.ADD;
2765: x_return_status := FND_API.G_RET_STS_ERROR;
2766: END IF;
2767: CLOSE Condition_Cur;
2768:
2769: IF G_DEBUG='Y' THEN
2775: AHL_PRD_UTIL_PKG.Validate_Material_Status(p_x_ahl_mtltxn_rec.Organization_Id,
2776: p_x_ahl_mtltxn_rec.Subinventory_Name,
2777: p_x_ahl_mtltxn_rec.Condition,
2778: l_return_Status);
2779: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2780: x_return_status := FND_API.G_RET_STS_ERROR;
2781: END IF;
2782:
2783: ELSE
2776: p_x_ahl_mtltxn_rec.Subinventory_Name,
2777: p_x_ahl_mtltxn_rec.Condition,
2778: l_return_Status);
2779: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2780: x_return_status := FND_API.G_RET_STS_ERROR;
2781: END IF;
2782:
2783: ELSE
2784: IF G_DEBUG='Y' THEN
2793: IF G_DEBUG='Y' THEN
2794: AHL_DEBUG_PUB.debug('After Validating Subinv['||p_x_ahl_mtltxn_rec.Subinventory_Name||','||x_return_Status || ']');
2795: END IF;
2796:
2797: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2798: x_return_status := FND_API.G_RET_STS_ERROR;
2799: END IF;
2800: END IF;
2801:
2794: AHL_DEBUG_PUB.debug('After Validating Subinv['||p_x_ahl_mtltxn_rec.Subinventory_Name||','||x_return_Status || ']');
2795: END IF;
2796:
2797: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2798: x_return_status := FND_API.G_RET_STS_ERROR;
2799: END IF;
2800: END IF;
2801:
2802: --If the Transaction_type_id is WIP RETURN
2819: FETCH CSI_LOCATION_CUR INTO l_wip_location;
2820: IF(CSI_LOCATION_CUR%NOTFOUND) THEN
2821: FND_MESSAGE.Set_Name('AHL','AHL_PRD_CSI_INSTALL_ERROR');
2822: FND_MSG_PUB.ADD;
2823: x_return_status := FND_API.G_RET_STS_ERROR;
2824: END IF;
2825: CLOSE CSI_LOCATION_CUR;
2826: IF G_DEBUG='Y' THEN
2827: AHL_DEBUG_PUB.debug('wip location id['||to_char(l_wip_location)||']');
2828: END IF;
2829: */
2830:
2831: IF (p_x_ahl_mtltxn_rec.Serial_Number IS NULL
2832: OR p_x_ahl_mtltxn_rec.Serial_Number = FND_API.G_MISS_CHAR) THEN
2833:
2834: -- Non serialized item:
2835:
2836: l_sql := 'SELECT INSTANCE_ID, QUANTITY FROM CSI_ITEM_INSTANCES CII ';
2854: l_sql := l_sql || ' AND ((CIR.ACTIVE_START_DATE IS NULL) OR (CIR.ACTIVE_START_DATE <= SYSDATE))';
2855: l_sql := l_sql || ' AND ((CIR.ACTIVE_END_DATE IS NULL) OR (CIR.ACTIVE_END_DATE > SYSDATE)) )';
2856:
2857: IF(p_x_ahl_mtltxn_rec.Revision IS NOT NULL
2858: AND p_x_ahl_mtltxn_rec.Revision <> FND_API.G_MISS_CHAR) THEN
2859: --l_sql := l_sql || ' AND INVENTORY_REVISION='''||p_x_ahl_mtltxn_rec.Revision||'''';
2860: l_sql := l_sql || ' AND INVENTORY_REVISION=:b5';
2861: l_revision_flag := TRUE;
2862: END IF;
2860: l_sql := l_sql || ' AND INVENTORY_REVISION=:b5';
2861: l_revision_flag := TRUE;
2862: END IF;
2863: IF(p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL
2864: AND p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR) THEN
2865: --l_sql := l_sql || ' AND LOT_NUMBER='''||p_x_ahl_mtltxn_rec.Lot_Number||'''';
2866: l_sql := l_sql || ' AND LOT_NUMBER=:b6';
2867: l_lot_flag := TRUE;
2868: END IF;
2918: EXCEPTION
2919: WHEN NO_DATA_FOUND THEN
2920: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_NOT_ALLOWED');
2921: FND_MSG_PUB.ADD;
2922: x_return_status := FND_API.G_RET_STS_ERROR;
2923: END;
2924: p_x_ahl_mtltxn_rec.Item_Instance_ID := x_Item_Instance_Id;
2925:
2926: ELSE
2967: FETCH CSI_SER_ITEM_CUR INTO x_Item_Instance_Id;
2968: IF(CSI_SER_ITEM_CUR%NOTFOUND) THEN
2969: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_NOT_ALLOWED');
2970: FND_MSG_PUB.ADD;
2971: x_return_status := FND_API.G_RET_STS_ERROR;
2972: END IF;
2973: CLOSE CSI_SER_ITEM_CUR;
2974: p_x_ahl_mtltxn_rec.Item_Instance_ID := x_Item_Instance_Id;
2975: l_instance_qty := 1;
2986:
2987: AHL_QA_RESULTS_PVT.get_qa_plan
2988: (
2989: p_api_version => 1.0,
2990: p_init_msg_list => FND_API.G_False,
2991: p_commit => FND_API.G_FALSE,
2992: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2993: p_default => FND_API.G_FALSE,
2994: p_module_type => 'JSP',
2987: AHL_QA_RESULTS_PVT.get_qa_plan
2988: (
2989: p_api_version => 1.0,
2990: p_init_msg_list => FND_API.G_False,
2991: p_commit => FND_API.G_FALSE,
2992: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2993: p_default => FND_API.G_FALSE,
2994: p_module_type => 'JSP',
2995: p_organization_id => p_x_ahl_mtltxn_rec.Organization_Id,
2988: (
2989: p_api_version => 1.0,
2990: p_init_msg_list => FND_API.G_False,
2991: p_commit => FND_API.G_FALSE,
2992: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2993: p_default => FND_API.G_FALSE,
2994: p_module_type => 'JSP',
2995: p_organization_id => p_x_ahl_mtltxn_rec.Organization_Id,
2996: p_transaction_number => 2004,
2989: p_api_version => 1.0,
2990: p_init_msg_list => FND_API.G_False,
2991: p_commit => FND_API.G_FALSE,
2992: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2993: p_default => FND_API.G_FALSE,
2994: p_module_type => 'JSP',
2995: p_organization_id => p_x_ahl_mtltxn_rec.Organization_Id,
2996: p_transaction_number => 2004,
2997: p_col_trigger_value => fnd_profile.value('AHL_MRB_DISP_PLAN_TYPE'),
2999: x_msg_count => l_msg_count,
3000: x_msg_data => l_msg_data,
3001: x_plan_id => l_plan_id
3002: );
3003: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3004: l_plan_id := null;
3005: END If;
3006:
3007: IF ((l_plan_id is not null) AND
3004: l_plan_id := null;
3005: END If;
3006:
3007: IF ((l_plan_id is not null) AND
3008: (p_x_ahl_mtltxn_rec.Qa_Collection_Id = FND_API.G_MISS_NUM OR
3009: p_x_ahl_mtltxn_rec.Qa_Collection_Id IS NULL)) THEN
3010: OPEN is_qa_coll_reqd(l_plan_id);
3011: FETCH is_qa_coll_reqd INTO l_junk;
3012: IF(is_qa_coll_reqd%FOUND) THEN
3011: FETCH is_qa_coll_reqd INTO l_junk;
3012: IF(is_qa_coll_reqd%FOUND) THEN
3013: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NO_QA_RESULTS');
3014: FND_MSG_PUB.ADD;
3015: x_return_status := FND_API.G_RET_STS_ERROR;
3016: END IF;
3017: CLOSE is_qa_coll_reqd;
3018: END IF;
3019: END IF;
3018: END IF;
3019: END IF;
3020:
3021: IF(p_x_ahl_mtltxn_rec.Problem_Code IS NOT NULL
3022: AND p_x_ahl_mtltxn_rec.Problem_Code <> FND_API.G_MISS_CHAR) THEN
3023:
3024: IF G_DEBUG='Y' THEN
3025: AHL_DEBUG_PUB.debug('Validating problem code['||p_x_ahl_mtltxn_rec.Problem_Code||']');
3026: END IF;
3030: IF(PROBLEM_CODE_LKUP_CUR%NOTFOUND) THEN
3031: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PROBLEM_CODE_INVALID');
3032: FND_MESSAGE.Set_Token('CODE',p_x_ahl_mtltxn_rec.Problem_Code);
3033: FND_MSG_PUB.ADD;
3034: x_return_status := FND_API.G_RET_STS_ERROR;
3035: END IF;
3036: CLOSE PROBLEM_CODE_LKUP_CUR;
3037: END IF;
3038:
3041: AHL_DEBUG_PUB.debug('Validate Instance qty..Instance:Qty:[' || x_Item_Instance_Id || ':' || l_instance_qty || ']');
3042: END IF;
3043:
3044: IF (p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL
3045: AND p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR) THEN
3046: OPEN mtl_serial_csr(p_x_ahl_mtltxn_rec.INVENTORY_ITEM_ID, p_x_ahl_mtltxn_rec.Serial_Number);
3047: FETCH mtl_serial_csr INTO l_junk;
3048: IF (mtl_serial_csr%NOTFOUND) THEN
3049: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3056: END IF;
3057: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SERIAL_NOT_INV');
3058: FND_MESSAGE.Set_Token('SERIAL',p_x_ahl_mtltxn_rec.Serial_Number);
3059: FND_MSG_PUB.ADD;
3060: x_return_status := FND_API.G_RET_STS_ERROR;
3061: END IF;
3062: CLOSE mtl_serial_csr;
3063: ELSIF (p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL
3064: AND p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR) THEN
3060: x_return_status := FND_API.G_RET_STS_ERROR;
3061: END IF;
3062: CLOSE mtl_serial_csr;
3063: ELSIF (p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL
3064: AND p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR) THEN
3065: IF G_DEBUG='Y' THEN
3066: AHL_DEBUG_PUB.debug('Checking pending txns: nonserial and lot controlled case');
3067: END IF;
3068: OPEN csi_pending_lot_txn(p_x_ahl_mtltxn_rec.Wip_Entity_Id,
3104: FND_MESSAGE.Set_Name('AHL','AHL_PRD_TXN_QTY_INVALID');
3105: FND_MESSAGE.Set_Token('QTY',p_x_ahl_mtltxn_rec.quantity);
3106: FND_MESSAGE.Set_Token('II_QTY', l_instance_qty-l_pend_qty);
3107: FND_MSG_PUB.ADD;
3108: x_return_status := FND_API.G_RET_STS_ERROR;
3109: END IF;
3110: IF (k = -1) THEN
3111: G_nonserial_ii_tbl(G_nonserial_ii_tbl.count+1).instance_id := p_x_ahl_mtltxn_rec.item_instance_id;
3112: G_nonserial_ii_tbl(G_nonserial_ii_tbl.count).quantity := nvl(p_x_ahl_mtltxn_rec.quantity,0);
3172: FND_MESSAGE.Set_Name('AHL','AHL_PRD_TXN_QTY_INVALID');
3173: FND_MESSAGE.Set_Token('QTY',p_x_ahl_mtltxn_rec.quantity);
3174: FND_MESSAGE.Set_Token('II_QTY', l_instance_qty-l_pend_qty);
3175: FND_MSG_PUB.ADD;
3176: x_return_status := FND_API.G_RET_STS_ERROR;
3177: END IF;
3178: IF (k = -1) THEN
3179: G_nonserial_ii_tbl(G_nonserial_ii_tbl.count+1).instance_id := p_x_ahl_mtltxn_rec.item_instance_id;
3180: G_nonserial_ii_tbl(G_nonserial_ii_tbl.count).quantity := nvl(p_x_ahl_mtltxn_rec.quantity,0);
3201: ELSE -- if it is a material issue
3202: -- find out instance id if possible : here (fix for bug number 4089691)
3203: -- Added trackable item check to fix bug# 6331012.
3204: IF (p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL
3205: AND p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR
3206: AND Is_Item_Trackable(p_x_ahl_mtltxn_rec.Organization_Id,
3207: p_x_ahl_mtltxn_rec.Inventory_Item_Id)) THEN
3208: OPEN CSI_ISSUE_SER_ITEM_CUR( p_x_ahl_mtltxn_rec.Inventory_Item_Id,p_x_ahl_mtltxn_rec.Serial_Number );
3209: FETCH CSI_ISSUE_SER_ITEM_CUR INTO p_x_ahl_mtltxn_rec.Item_Instance_ID;
3209: FETCH CSI_ISSUE_SER_ITEM_CUR INTO p_x_ahl_mtltxn_rec.Item_Instance_ID;
3210: IF(CSI_ISSUE_SER_ITEM_CUR%NOTFOUND) THEN
3211: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_NOT_ALLOWED');
3212: FND_MSG_PUB.ADD;
3213: x_return_status := FND_API.G_RET_STS_ERROR;
3214: END IF;
3215: CLOSE CSI_ISSUE_SER_ITEM_CUR;
3216: END IF;
3217: END IF; -- End of IF for WIP Return Check.
3223: IF G_DEBUG='Y' THEN
3224: AHL_DEBUG_PUB.debug('Validating serial num/qty['||p_x_ahl_mtltxn_rec.quantity||']');
3225: END IF;
3226:
3227: IF ((p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR) AND
3228: (p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL) AND
3229: nvl(l_serial_Control,1) <> 1) THEN
3230: IF (p_x_ahl_mtltxn_rec.uom IS NOT NULL AND
3231: p_x_ahl_mtltxn_rec.uom <> l_primary_uom_code) THEN
3243: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_ITEM_QTY');
3244: FND_MESSAGE.Set_Token('PRIM_UOM',l_primary_uom_code);
3245: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
3246: FND_MSG_PUB.ADD;
3247: x_return_status := FND_API.G_RET_STS_ERROR;
3248: END IF;
3249: ELSE
3250: -- qty in primary uom.
3251: IF (p_x_ahl_mtltxn_rec.Quantity <> 1) THEN
3252: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_ITEM_QTY');
3253: FND_MESSAGE.Set_Token('PRIM_UOM',l_primary_uom_code);
3254: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
3255: FND_MSG_PUB.ADD;
3256: x_return_status := FND_API.G_RET_STS_ERROR;
3257: END IF;
3258: END IF; -- uom code.
3259: END IF; -- serial num.
3260:
3264:
3265: -- For issue txn with serial number, validate if subinventory and locator match
3266: -- that from mtl_serial_numbers.
3267: IF (p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL) AND
3268: (p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR) AND
3269: (nvl(l_serial_Control,0) <> 1) AND
3270: (p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.ISSCOMP_TYPE) THEN
3271: OPEN mtl_srl_num_csr(p_x_ahl_mtltxn_rec.Organization_ID,
3272: p_x_ahl_mtltxn_rec.Inventory_Item_id,
3278: AHL_DEBUG_PUB.debug('Validating serial subinv['||p_x_ahl_mtltxn_rec.subinventory_Name||']');
3279: END IF;
3280:
3281: IF (p_x_ahl_mtltxn_rec.subinventory_Name IS NOT NULL AND
3282: p_x_ahl_mtltxn_rec.subinventory_Name <> FND_API.G_MISS_CHAR AND
3283: p_x_ahl_mtltxn_rec.subinventory_Name <> l_curr_subinventory_code) THEN
3284: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SUB_CODE');
3285: FND_MESSAGE.Set_Token('CODE',l_curr_subinventory_code);
3286: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
3285: FND_MESSAGE.Set_Token('CODE',l_curr_subinventory_code);
3286: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
3287: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
3288: FND_MSG_PUB.ADD;
3289: x_return_status := FND_API.G_RET_STS_ERROR;
3290: END IF;
3291:
3292: IF G_DEBUG='Y' THEN
3293: AHL_DEBUG_PUB.debug('Validating serial subinv['||p_x_ahl_mtltxn_rec.subinventory_Name||']');
3293: AHL_DEBUG_PUB.debug('Validating serial subinv['||p_x_ahl_mtltxn_rec.subinventory_Name||']');
3294: END IF;
3295:
3296: IF (p_x_ahl_mtltxn_rec.locator_id IS NOT NULL AND
3297: p_x_ahl_mtltxn_rec.locator_id <> FND_API.G_MISS_NUM AND
3298: l_curr_locator_id IS NOT NULL AND
3299: p_x_ahl_mtltxn_rec.locator_id <> l_curr_locator_id) THEN
3300: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOC_CODE');
3301: --FND_MESSAGE.Set_Token('CODE',l_curr_locator_id);
3301: --FND_MESSAGE.Set_Token('CODE',l_curr_locator_id);
3302: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
3303: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
3304: FND_MSG_PUB.ADD;
3305: x_return_status := FND_API.G_RET_STS_ERROR;
3306: END IF;
3307: ELSE
3308: -- serial number not found.
3309: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SRLNUM');
3309: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SRLNUM');
3310: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
3311: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
3312: FND_MSG_PUB.ADD;
3313: x_return_status := FND_API.G_RET_STS_ERROR;
3314: END IF;
3315:
3316: CLOSE mtl_srl_num_csr;
3317: END IF;
3321: END IF;
3322:
3323: -- Validate transaction date.
3324: IF (p_x_ahl_mtltxn_rec.transaction_date IS NULL OR
3325: p_x_ahl_mtltxn_rec.transaction_date = FND_API.G_MISS_DATE) THEN
3326: p_x_ahl_mtltxn_rec.transaction_date := SYSDATE;
3327: /*
3328: * defaulting the time component to 23:59:59(for past dates) and systime for current date to fix bug#4096941
3329: */
3339: END IF;
3340: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_TXN_DATE');
3341: FND_MESSAGE.Set_Token('DATE',p_x_ahl_mtltxn_rec.transaction_date);
3342: FND_MSG_PUB.ADD;
3343: x_return_status := FND_API.G_RET_STS_ERROR;
3344: END IF;
3345:
3346: END IF;
3347: /*
3350: OPEN workorder_released_date_csr(p_x_ahl_mtltxn_rec.Wip_Entity_Id);
3351: FETCH workorder_released_date_csr INTO l_workorder_released_date;
3352: IF(workorder_released_date_csr%NOTFOUND)THEN
3353: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WIP_ENTITY');
3354: IF(p_x_ahl_mtltxn_rec.Wip_Entity_Id = FND_API.G_MISS_NUM) THEN
3355: p_x_ahl_mtltxn_rec.Wip_Entity_Id := NULL;
3356: END IF;
3357: FND_MESSAGE.Set_Token('WIP_ENTITY',p_x_ahl_mtltxn_rec.Wip_Entity_Id);
3358: FND_MSG_PUB.ADD;
3355: p_x_ahl_mtltxn_rec.Wip_Entity_Id := NULL;
3356: END IF;
3357: FND_MESSAGE.Set_Token('WIP_ENTITY',p_x_ahl_mtltxn_rec.Wip_Entity_Id);
3358: FND_MSG_PUB.ADD;
3359: x_return_status := FND_API.G_RET_STS_ERROR;
3360: ELSE
3361: IF G_DEBUG='Y' THEN
3362: AHL_DEBUG_PUB.debug('transaction date['||to_char(p_x_ahl_mtltxn_rec.transaction_date,'dd-mon-yyyy hh24:mi:ss') ||']');
3363: AHL_DEBUG_PUB.debug('workorder release date['||to_char(l_workorder_released_date,'dd-mon-yyyy hh24:mi:ss') ||']');
3369: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_TXN_REL_DT');
3370: FND_MESSAGE.Set_Token('TXNS_DATE',to_char(p_x_ahl_mtltxn_rec.transaction_date,'dd-MON-yyyy hh24:mi:ss'));
3371: FND_MESSAGE.Set_Token('REL_DATE',to_char(l_workorder_released_date,'dd-MON-yyyy hh24:mi:ss'));
3372: FND_MSG_PUB.ADD;
3373: x_return_status := FND_API.G_RET_STS_ERROR;
3374: END IF;
3375: END IF;
3376: CLOSE workorder_released_date_csr;
3377:
3386: END IF;
3387:
3388: -- validate disposition id.
3389: IF (p_x_ahl_mtltxn_rec.disposition_id IS NOT NULL AND
3390: p_x_ahl_mtltxn_rec.disposition_id <> FND_API.G_MISS_NUM) THEN
3391:
3392: -- chk if disposition exists.
3393: OPEN disposition_cur ( p_x_ahl_mtltxn_rec.disposition_id,
3394: p_x_ahl_mtltxn_rec.workorder_id,
3401: IF (disposition_cur%NOTFOUND) THEN
3402: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_DISP_INVALID');
3403: FND_MESSAGE.Set_Token('DISP_ID',p_x_ahl_mtltxn_rec.disposition_id);
3404: FND_MSG_PUB.ADD;
3405: x_return_status := FND_API.G_RET_STS_ERROR;
3406: END IF;
3407: CLOSE disposition_cur;
3408: IF (l_qa_collection_id IS NOT NULL) THEN
3409: IF (p_x_ahl_mtltxn_rec.qa_collection_id IS NULL) THEN
3409: IF (p_x_ahl_mtltxn_rec.qa_collection_id IS NULL) THEN
3410: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_QAID_NULL');
3411: FND_MESSAGE.Set_Token('DISP_ID',p_x_ahl_mtltxn_rec.disposition_id);
3412: FND_MSG_PUB.ADD;
3413: x_return_status := FND_API.G_RET_STS_ERROR;
3414: ELSIF (p_x_ahl_mtltxn_rec.qa_collection_id <> l_qa_collection_id) THEN
3415: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_QAID_INVALID');
3416: FND_MESSAGE.Set_Token('QA_I',p_x_ahl_mtltxn_rec.qa_collection_id);
3417: FND_MESSAGE.Set_Token('QA_D',l_qa_collection_id);
3415: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_QAID_INVALID');
3416: FND_MESSAGE.Set_Token('QA_I',p_x_ahl_mtltxn_rec.qa_collection_id);
3417: FND_MESSAGE.Set_Token('QA_D',l_qa_collection_id);
3418: FND_MSG_PUB.ADD;
3419: x_return_status := FND_API.G_RET_STS_ERROR;
3420: END IF;
3421: END IF;
3422: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.RETCOMP_TYPE)
3423: AND (l_condition_id <> p_x_ahl_mtltxn_rec.condition) THEN
3424: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_COND_INVALID');
3425: FND_MESSAGE.Set_Token('COND_I',p_x_ahl_mtltxn_rec.condition_desc);
3426: FND_MESSAGE.Set_Token('COND_D',l_condition_code);
3427: FND_MSG_PUB.ADD;
3428: x_return_status := FND_API.G_RET_STS_ERROR;
3429: END IF;
3430: END IF; -- -- p_x_ahl_mtltxn_rec.disposition_id
3431:
3432: IF G_DEBUG='Y' THEN
3452: /*
3453: PROCEDURE INSERT_MTL_TXN_TEMP
3454: (
3455: p_api_version IN NUMBER := 1.0,
3456: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3457: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3458: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3459: p_default IN VARCHAR2 := FND_API.G_FALSE,
3460: p_module_type IN VARCHAR2 := NULL,
3453: PROCEDURE INSERT_MTL_TXN_TEMP
3454: (
3455: p_api_version IN NUMBER := 1.0,
3456: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3457: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3458: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3459: p_default IN VARCHAR2 := FND_API.G_FALSE,
3460: p_module_type IN VARCHAR2 := NULL,
3461: p_x_ahl_mtltxn_rec IN OUT NOCOPY Ahl_Mtltxn_Rec_Type,
3454: (
3455: p_api_version IN NUMBER := 1.0,
3456: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3457: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3458: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3459: p_default IN VARCHAR2 := FND_API.G_FALSE,
3460: p_module_type IN VARCHAR2 := NULL,
3461: p_x_ahl_mtltxn_rec IN OUT NOCOPY Ahl_Mtltxn_Rec_Type,
3462: x_txn_Hdr_Id OUT NOCOPY NUMBER,
3455: p_api_version IN NUMBER := 1.0,
3456: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3457: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3458: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3459: p_default IN VARCHAR2 := FND_API.G_FALSE,
3460: p_module_type IN VARCHAR2 := NULL,
3461: p_x_ahl_mtltxn_rec IN OUT NOCOPY Ahl_Mtltxn_Rec_Type,
3462: x_txn_Hdr_Id OUT NOCOPY NUMBER,
3463: x_txn_Tmp_id OUT NOCOPY NUMBER,
3501: AHL_DEBUG_PUB.debug('Did not find the account period for org('||p_x_ahl_mtltxn_rec.Organization_Id||')');
3502:
3503: END IF;
3504: CLOSE ACCT_PERIOD_CUR;
3505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3506: END IF;
3507: CLOSE ACCT_PERIOD_CUR;
3508:
3509: OPEN TRX_ACTION_CUR(p_x_ahl_mtltxn_rec.Transaction_Type_Id);
3513: AHL_DEBUG_PUB.debug('Did not find the Txn Type');
3514:
3515: END IF;
3516: CLOSE TRX_ACTION_CUR;
3517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3518: END IF;
3519: CLOSE TRX_ACTION_CUR;
3520:
3521: l_mmtt_rec.SOURCE_CODE := 'AHL' ;
3521: l_mmtt_rec.SOURCE_CODE := 'AHL' ;
3522: l_mmtt_rec.SOURCE_LINE_ID := 1;
3523: l_mmtt_rec.TRANSACTION_MODE := l_transaction_Mode;
3524:
3525: IF (p_x_ahl_mtltxn_rec.transaction_reference = FND_API.G_MISS_CHAR) THEN
3526: l_transaction_reference := NULL;
3527: ELSE
3528: l_transaction_reference := p_x_ahl_mtltxn_rec.transaction_reference;
3529: END IF;
3538: --l_mmtt_rec.PROGRAM_ID :=
3539: --l_mmtt_rec.PROGRAM_UPDATE_DATE :=
3540: l_mmtt_rec.INVENTORY_ITEM_ID := p_x_ahl_mtltxn_rec.Inventory_Item_Id;
3541: if(p_x_ahl_mtltxn_rec.Revision IS NOT NULL
3542: AND p_x_ahl_mtltxn_rec.Revision <> FND_API.G_MISS_CHAR) THEN
3543: l_mmtt_rec.REVISION := p_x_ahl_mtltxn_rec.Revision;
3544: END IF;
3545: l_mmtt_rec.ORGANIZATION_ID := p_x_ahl_mtltxn_rec.Organization_Id;
3546: l_mmtt_rec.SUBINVENTORY_CODE := p_x_ahl_mtltxn_rec.Subinventory_Name;
3544: END IF;
3545: l_mmtt_rec.ORGANIZATION_ID := p_x_ahl_mtltxn_rec.Organization_Id;
3546: l_mmtt_rec.SUBINVENTORY_CODE := p_x_ahl_mtltxn_rec.Subinventory_Name;
3547: IF(p_x_ahl_mtltxn_rec.Locator_Id IS NOT NULL
3548: AND p_x_ahl_mtltxn_rec.Locator_Id <> FND_API.G_MISS_NUM) THEN
3549: l_mmtt_rec.LOCATOR_ID := p_x_ahl_mtltxn_rec.Locator_Id;
3550: END IF;
3551: if(p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.ISSCOMP_TYPE) THEN
3552: l_mmtt_rec.TRANSACTION_QUANTITY := - p_x_ahl_mtltxn_rec.Quantity;
3566: l_mmtt_rec.TRANSACTION_REFERENCE := l_transaction_reference;
3567: -- l_mmtt_rec.REQUISITION_LINE_ID :=
3568: -- l_mmtt_rec.REQUISITION_DISTRIBUTION_ID :=
3569: IF(p_x_ahl_mtltxn_rec.Reason_Id IS NOT NULL
3570: AND p_x_ahl_mtltxn_rec.Reason_Id <> FND_API.G_MISS_NUM) THEN
3571: l_mmtt_rec.REASON_ID :=p_x_ahl_mtltxn_rec.Reason_Id;
3572: END IF;
3573: --l_mmtt_rec.LOT_NUMBER := p_lot_number;
3574: --l_mmtt_rec.LOT_EXPIRATION_DATE :=
3578: l_mmtt_rec.OPERATION_SEQ_NUM := p_x_ahl_mtltxn_rec.Operation_Seq_Num;
3579: --l_mmtt_rec.ITEM_LOCATION_CONTROL_CODE :=
3580: l_mmtt_rec.PROCESS_FLAG := l_Process_Flag;
3581: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE_CATEGORY IS NOT NULL
3582: AND p_x_ahl_mtltxn_rec.ATTRIBUTE_CATEGORY <> FND_API.G_MISS_CHAR) THEN
3583: l_mmtt_rec.ATTRIBUTE_CATEGORY := p_x_ahl_mtltxn_rec.ATTRIBUTE_CATEGORY;
3584: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE1 IS NOT NULL
3585: AND p_x_ahl_mtltxn_rec.ATTRIBUTE1 <> FND_API.G_MISS_CHAR) THEN
3586: l_mmtt_rec.ATTRIBUTE1 := p_x_ahl_mtltxn_rec.ATTRIBUTE1;
3581: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE_CATEGORY IS NOT NULL
3582: AND p_x_ahl_mtltxn_rec.ATTRIBUTE_CATEGORY <> FND_API.G_MISS_CHAR) THEN
3583: l_mmtt_rec.ATTRIBUTE_CATEGORY := p_x_ahl_mtltxn_rec.ATTRIBUTE_CATEGORY;
3584: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE1 IS NOT NULL
3585: AND p_x_ahl_mtltxn_rec.ATTRIBUTE1 <> FND_API.G_MISS_CHAR) THEN
3586: l_mmtt_rec.ATTRIBUTE1 := p_x_ahl_mtltxn_rec.ATTRIBUTE1;
3587: END IF;
3588: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE2 IS NOT NULL
3589: AND p_x_ahl_mtltxn_rec.ATTRIBUTE2 <> FND_API.G_MISS_CHAR) THEN
3585: AND p_x_ahl_mtltxn_rec.ATTRIBUTE1 <> FND_API.G_MISS_CHAR) THEN
3586: l_mmtt_rec.ATTRIBUTE1 := p_x_ahl_mtltxn_rec.ATTRIBUTE1;
3587: END IF;
3588: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE2 IS NOT NULL
3589: AND p_x_ahl_mtltxn_rec.ATTRIBUTE2 <> FND_API.G_MISS_CHAR) THEN
3590: l_mmtt_rec.ATTRIBUTE2 := p_x_ahl_mtltxn_rec.ATTRIBUTE2;
3591: END IF;
3592: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE3 IS NOT NULL
3593: AND p_x_ahl_mtltxn_rec.ATTRIBUTE3 <> FND_API.G_MISS_CHAR) THEN
3589: AND p_x_ahl_mtltxn_rec.ATTRIBUTE2 <> FND_API.G_MISS_CHAR) THEN
3590: l_mmtt_rec.ATTRIBUTE2 := p_x_ahl_mtltxn_rec.ATTRIBUTE2;
3591: END IF;
3592: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE3 IS NOT NULL
3593: AND p_x_ahl_mtltxn_rec.ATTRIBUTE3 <> FND_API.G_MISS_CHAR) THEN
3594: l_mmtt_rec.ATTRIBUTE3 := p_x_ahl_mtltxn_rec.ATTRIBUTE3;
3595: END IF;
3596: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE4 IS NOT NULL
3597: AND p_x_ahl_mtltxn_rec.ATTRIBUTE4 <> FND_API.G_MISS_CHAR) THEN
3593: AND p_x_ahl_mtltxn_rec.ATTRIBUTE3 <> FND_API.G_MISS_CHAR) THEN
3594: l_mmtt_rec.ATTRIBUTE3 := p_x_ahl_mtltxn_rec.ATTRIBUTE3;
3595: END IF;
3596: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE4 IS NOT NULL
3597: AND p_x_ahl_mtltxn_rec.ATTRIBUTE4 <> FND_API.G_MISS_CHAR) THEN
3598: l_mmtt_rec.ATTRIBUTE4 := p_x_ahl_mtltxn_rec.ATTRIBUTE4;
3599: END IF;
3600: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE5 IS NOT NULL
3601: AND p_x_ahl_mtltxn_rec.ATTRIBUTE5 <> FND_API.G_MISS_CHAR) THEN
3597: AND p_x_ahl_mtltxn_rec.ATTRIBUTE4 <> FND_API.G_MISS_CHAR) THEN
3598: l_mmtt_rec.ATTRIBUTE4 := p_x_ahl_mtltxn_rec.ATTRIBUTE4;
3599: END IF;
3600: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE5 IS NOT NULL
3601: AND p_x_ahl_mtltxn_rec.ATTRIBUTE5 <> FND_API.G_MISS_CHAR) THEN
3602: l_mmtt_rec.ATTRIBUTE5 := p_x_ahl_mtltxn_rec.ATTRIBUTE5;
3603: END IF;
3604: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE6 IS NOT NULL
3605: AND p_x_ahl_mtltxn_rec.ATTRIBUTE6 <> FND_API.G_MISS_CHAR) THEN
3601: AND p_x_ahl_mtltxn_rec.ATTRIBUTE5 <> FND_API.G_MISS_CHAR) THEN
3602: l_mmtt_rec.ATTRIBUTE5 := p_x_ahl_mtltxn_rec.ATTRIBUTE5;
3603: END IF;
3604: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE6 IS NOT NULL
3605: AND p_x_ahl_mtltxn_rec.ATTRIBUTE6 <> FND_API.G_MISS_CHAR) THEN
3606: l_mmtt_rec.ATTRIBUTE6 := p_x_ahl_mtltxn_rec.ATTRIBUTE6;
3607: END IF;
3608: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE7 IS NOT NULL
3609: AND p_x_ahl_mtltxn_rec.ATTRIBUTE7 <> FND_API.G_MISS_CHAR) THEN
3605: AND p_x_ahl_mtltxn_rec.ATTRIBUTE6 <> FND_API.G_MISS_CHAR) THEN
3606: l_mmtt_rec.ATTRIBUTE6 := p_x_ahl_mtltxn_rec.ATTRIBUTE6;
3607: END IF;
3608: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE7 IS NOT NULL
3609: AND p_x_ahl_mtltxn_rec.ATTRIBUTE7 <> FND_API.G_MISS_CHAR) THEN
3610: l_mmtt_rec.ATTRIBUTE7 := p_x_ahl_mtltxn_rec.ATTRIBUTE7;
3611: END IF;
3612: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE8 IS NOT NULL
3613: AND p_x_ahl_mtltxn_rec.ATTRIBUTE8 <> FND_API.G_MISS_CHAR) THEN
3609: AND p_x_ahl_mtltxn_rec.ATTRIBUTE7 <> FND_API.G_MISS_CHAR) THEN
3610: l_mmtt_rec.ATTRIBUTE7 := p_x_ahl_mtltxn_rec.ATTRIBUTE7;
3611: END IF;
3612: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE8 IS NOT NULL
3613: AND p_x_ahl_mtltxn_rec.ATTRIBUTE8 <> FND_API.G_MISS_CHAR) THEN
3614: l_mmtt_rec.ATTRIBUTE8 := p_x_ahl_mtltxn_rec.ATTRIBUTE8;
3615: END IF;
3616: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE9 IS NOT NULL
3617: AND p_x_ahl_mtltxn_rec.ATTRIBUTE9 <> FND_API.G_MISS_CHAR) THEN
3613: AND p_x_ahl_mtltxn_rec.ATTRIBUTE8 <> FND_API.G_MISS_CHAR) THEN
3614: l_mmtt_rec.ATTRIBUTE8 := p_x_ahl_mtltxn_rec.ATTRIBUTE8;
3615: END IF;
3616: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE9 IS NOT NULL
3617: AND p_x_ahl_mtltxn_rec.ATTRIBUTE9 <> FND_API.G_MISS_CHAR) THEN
3618: l_mmtt_rec.ATTRIBUTE9 := p_x_ahl_mtltxn_rec.ATTRIBUTE9;
3619: END IF;
3620: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE10 IS NOT NULL
3621: AND p_x_ahl_mtltxn_rec.ATTRIBUTE10 <> FND_API.G_MISS_CHAR) THEN
3617: AND p_x_ahl_mtltxn_rec.ATTRIBUTE9 <> FND_API.G_MISS_CHAR) THEN
3618: l_mmtt_rec.ATTRIBUTE9 := p_x_ahl_mtltxn_rec.ATTRIBUTE9;
3619: END IF;
3620: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE10 IS NOT NULL
3621: AND p_x_ahl_mtltxn_rec.ATTRIBUTE10 <> FND_API.G_MISS_CHAR) THEN
3622: l_mmtt_rec.ATTRIBUTE10 := p_x_ahl_mtltxn_rec.ATTRIBUTE10;
3623: END IF;
3624: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE11 IS NOT NULL
3625: AND p_x_ahl_mtltxn_rec.ATTRIBUTE11 <> FND_API.G_MISS_CHAR) THEN
3621: AND p_x_ahl_mtltxn_rec.ATTRIBUTE10 <> FND_API.G_MISS_CHAR) THEN
3622: l_mmtt_rec.ATTRIBUTE10 := p_x_ahl_mtltxn_rec.ATTRIBUTE10;
3623: END IF;
3624: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE11 IS NOT NULL
3625: AND p_x_ahl_mtltxn_rec.ATTRIBUTE11 <> FND_API.G_MISS_CHAR) THEN
3626: l_mmtt_rec.ATTRIBUTE11 := p_x_ahl_mtltxn_rec.ATTRIBUTE11;
3627: END IF;
3628: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE12 IS NOT NULL
3629: AND p_x_ahl_mtltxn_rec.ATTRIBUTE12 <> FND_API.G_MISS_CHAR) THEN
3625: AND p_x_ahl_mtltxn_rec.ATTRIBUTE11 <> FND_API.G_MISS_CHAR) THEN
3626: l_mmtt_rec.ATTRIBUTE11 := p_x_ahl_mtltxn_rec.ATTRIBUTE11;
3627: END IF;
3628: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE12 IS NOT NULL
3629: AND p_x_ahl_mtltxn_rec.ATTRIBUTE12 <> FND_API.G_MISS_CHAR) THEN
3630: l_mmtt_rec.ATTRIBUTE12 := p_x_ahl_mtltxn_rec.ATTRIBUTE12;
3631: END IF;
3632: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE13 IS NOT NULL
3633: AND p_x_ahl_mtltxn_rec.ATTRIBUTE13 <> FND_API.G_MISS_CHAR) THEN
3629: AND p_x_ahl_mtltxn_rec.ATTRIBUTE12 <> FND_API.G_MISS_CHAR) THEN
3630: l_mmtt_rec.ATTRIBUTE12 := p_x_ahl_mtltxn_rec.ATTRIBUTE12;
3631: END IF;
3632: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE13 IS NOT NULL
3633: AND p_x_ahl_mtltxn_rec.ATTRIBUTE13 <> FND_API.G_MISS_CHAR) THEN
3634: l_mmtt_rec.ATTRIBUTE13 := p_x_ahl_mtltxn_rec.ATTRIBUTE13;
3635: END IF;
3636: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE14 IS NOT NULL
3637: AND p_x_ahl_mtltxn_rec.ATTRIBUTE14 <> FND_API.G_MISS_CHAR) THEN
3633: AND p_x_ahl_mtltxn_rec.ATTRIBUTE13 <> FND_API.G_MISS_CHAR) THEN
3634: l_mmtt_rec.ATTRIBUTE13 := p_x_ahl_mtltxn_rec.ATTRIBUTE13;
3635: END IF;
3636: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE14 IS NOT NULL
3637: AND p_x_ahl_mtltxn_rec.ATTRIBUTE14 <> FND_API.G_MISS_CHAR) THEN
3638: l_mmtt_rec.ATTRIBUTE14 := p_x_ahl_mtltxn_rec.ATTRIBUTE14;
3639: END IF;
3640: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE15 IS NOT NULL
3641: AND p_x_ahl_mtltxn_rec.ATTRIBUTE15 <> FND_API.G_MISS_CHAR) THEN
3637: AND p_x_ahl_mtltxn_rec.ATTRIBUTE14 <> FND_API.G_MISS_CHAR) THEN
3638: l_mmtt_rec.ATTRIBUTE14 := p_x_ahl_mtltxn_rec.ATTRIBUTE14;
3639: END IF;
3640: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE15 IS NOT NULL
3641: AND p_x_ahl_mtltxn_rec.ATTRIBUTE15 <> FND_API.G_MISS_CHAR) THEN
3642: l_mmtt_rec.ATTRIBUTE15 := p_x_ahl_mtltxn_rec.ATTRIBUTE15;
3643: END IF;
3644: END IF;
3645:
3657:
3658: IF G_DEBUG='Y' THEN
3659: AHL_DEBUG_PUB.debug('inserted in mmtt..ret_status['||x_return_status||']');
3660: END IF;
3661: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3662: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3663: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3664: FND_MSG_PUB.ADD;
3665: RAISE FND_API.G_EXC_ERROR;
3661: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3662: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3663: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3664: FND_MSG_PUB.ADD;
3665: RAISE FND_API.G_EXC_ERROR;
3666: END IF;
3667:
3668: IF(p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR AND
3669: p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL AND
3664: FND_MSG_PUB.ADD;
3665: RAISE FND_API.G_EXC_ERROR;
3666: END IF;
3667:
3668: IF(p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR AND
3669: p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL AND
3670: p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR AND
3671: p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL) THEN
3672:
3666: END IF;
3667:
3668: IF(p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR AND
3669: p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL AND
3670: p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR AND
3671: p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL) THEN
3672:
3673: --Item is under Lot and Serial Control
3674: --Generate serial transaction Temp id.
3714: x_msg_data => x_msg_data);
3715: IF G_DEBUG='Y' THEN
3716: AHL_DEBUG_PUB.debug('inserted in mtlt..ret_status['||x_return_status||']');
3717: END IF;
3718: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3719: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3720: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3721: FND_MSG_PUB.ADD;
3722: RAISE FND_API.G_EXC_ERROR;
3718: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3719: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3720: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3721: FND_MSG_PUB.ADD;
3722: RAISE FND_API.G_EXC_ERROR;
3723: END IF;
3724: IF G_DEBUG='Y' THEN
3725: AHL_DEBUG_PUB.debug('inserting in msnt..');
3726:
3735: AHL_DEBUG_PUB.debug('inserted in msnt..ret_status['||x_return_status||']');
3736:
3737: END IF;
3738:
3739: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3740: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3741: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3742: FND_MSG_PUB.ADD;
3743: RAISE FND_API.G_EXC_ERROR;
3739: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3740: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3741: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3742: FND_MSG_PUB.ADD;
3743: RAISE FND_API.G_EXC_ERROR;
3744: END IF;
3745:
3746: ELSIF (p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR AND
3747: p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL ) THEN
3742: FND_MSG_PUB.ADD;
3743: RAISE FND_API.G_EXC_ERROR;
3744: END IF;
3745:
3746: ELSIF (p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR AND
3747: p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL ) THEN
3748: --Item is under Lot control
3749: l_mtlt_rec.Transaction_Temp_Id := x_Txn_Tmp_Id;
3750: l_mtlt_rec.Lot_Number := p_x_ahl_mtltxn_rec.Lot_Number;
3769: IF G_DEBUG='Y' THEN
3770: AHL_DEBUG_PUB.debug('inserted in mtlt..ret_status['||x_return_status||']');
3771:
3772: END IF;
3773: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3774: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3775: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3776: FND_MSG_PUB.ADD;
3777: RAISE FND_API.G_EXC_ERROR;
3773: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3774: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3775: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3776: FND_MSG_PUB.ADD;
3777: RAISE FND_API.G_EXC_ERROR;
3778: END IF;
3779:
3780: ELSIF (p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR AND
3781: p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL) THEN
3776: FND_MSG_PUB.ADD;
3777: RAISE FND_API.G_EXC_ERROR;
3778: END IF;
3779:
3780: ELSIF (p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR AND
3781: p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL) THEN
3782: -- Item is under serial control
3783: l_msnt_rec.Transaction_Temp_Id := x_Txn_Tmp_Id;
3784: l_msnt_rec.Fm_Serial_Number := p_x_ahl_mtltxn_rec.Serial_Number;
3803: AHL_DEBUG_PUB.debug('inserted in msnt..ret_status['||x_return_status||']');
3804:
3805: END IF;
3806:
3807: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3808: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3809: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3810: FND_MSG_PUB.ADD;
3811: RAISE FND_API.G_EXC_ERROR;
3807: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3808: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3809: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3810: FND_MSG_PUB.ADD;
3811: RAISE FND_API.G_EXC_ERROR;
3812: END IF;
3813: END IF;
3814: END INSERT_MTL_TXN_TEMP;
3815: */
3899: IF(Workop_Det_Cur%NOTFOUND) THEN
3900: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WO_OP');
3901: FND_MSG_PUB.ADD;
3902: CLOSE Workop_Det_Cur;
3903: RAISE FND_API.G_EXC_ERROR;
3904: END IF;
3905: CLOSE Workop_Det_Cur;
3906: IF G_DEBUG='Y' THEN
3907: AHL_DEBUG_PUB.debug('Selected the work order paramters');
3921: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_ITEM');
3922: FND_MESSAGE.Set_Token('FIELD',p_mtl_txn_Rec.Inventory_Item_Id);
3923: FND_MSG_PUB.ADD;
3924: CLOSE Item_Desc_Cur;
3925: RAISE FND_API.G_EXC_ERROR;
3926: END IF;
3927: CLOSE Item_Desc_Cur;
3928: IF G_DEBUG='Y' THEN
3929: AHL_DEBUG_PUB.debug('Selected the Item description');
4002: AHL_DEBUG_PUB.debug('x_return_status['||x_return_status||']');
4003: AHL_DEBUG_PUB.debug('x_msg_data['||x_msg_data||']');
4004:
4005: END IF;
4006: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4007: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTLAPI_ERROR');
4008: FND_MESSAGE.Set_Token('MSG',x_msg_data);
4009: FND_MSG_PUB.ADD;
4010: RAISE FND_API.G_EXC_ERROR;
4006: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4007: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTLAPI_ERROR');
4008: FND_MESSAGE.Set_Token('MSG',x_msg_data);
4009: FND_MSG_PUB.ADD;
4010: RAISE FND_API.G_EXC_ERROR;
4011: END IF;
4012:
4013: /* will be updated after wip api is successful - modified for bug fix 5499575.
4014: -- Update Completed quantity.
4170: l_source_line_id := 1;
4171: l_Source_Header_Id := 1;
4172:
4173:
4174: x_return_status := FND_API.G_RET_STS_SUCCESS;
4175:
4176: OPEN TRX_ACTION_CUR(p_x_ahl_mtl_txn_rec.Transaction_Type_Id);
4177: FETCH TRX_ACTION_CUR INTO l_txn_action, l_txn_source_type;
4178: IF(TRX_ACTION_CUR%NOTFOUND) THEN
4179: IF G_DEBUG='Y' THEN
4180: AHL_DEBUG_PUB.debug('Did not find the Txn Type');
4181: END IF;
4182: CLOSE TRX_ACTION_CUR;
4183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4184: END IF;
4185: CLOSE TRX_ACTION_CUR;
4186:
4187:
4205: IF G_DEBUG='Y' THEN
4206: AHL_DEBUG_PUB.debug('Interface id created..['||p_x_txn_intf_id||']');
4207: END IF;
4208:
4209: if(p_x_ahl_mtl_txn_rec.Revision = FND_API.G_MISS_CHAR) THEN
4210: p_x_ahl_mtl_txn_rec.Revision := NULL;
4211: END IF;
4212: IF(p_x_ahl_mtl_txn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
4213: p_x_ahl_mtl_txn_rec.Locator_Id := NULL;
4208:
4209: if(p_x_ahl_mtl_txn_rec.Revision = FND_API.G_MISS_CHAR) THEN
4210: p_x_ahl_mtl_txn_rec.Revision := NULL;
4211: END IF;
4212: IF(p_x_ahl_mtl_txn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
4213: p_x_ahl_mtl_txn_rec.Locator_Id := NULL;
4214: END IF;
4215: if(p_x_ahl_mtl_txn_rec.Transaction_Type_Id = WIP_CONSTANTS.ISSCOMP_TYPE) THEN
4216: IF (p_eam_item_type_id = WIP_CONSTANTS.rebuild_item_type AND p_x_ahl_mtl_txn_rec.Quantity > 1) THEN
4233: AHL_DEBUG_PUB.debug('Loop Count is..['||l_loop_count||']');
4234: AHL_DEBUG_PUB.debug('l_qty is..['||l_qty||']');
4235: END IF;
4236:
4237: IF( p_x_ahl_mtl_txn_rec.Reason_Id = FND_API.G_MISS_NUM) THEN
4238: p_x_ahl_mtl_txn_rec.Reason_Id := NULL;
4239: END IF;
4240: IF( p_x_ahl_mtl_txn_rec.Serial_number = FND_API.G_MISS_CHAR) THEN
4241: p_x_ahl_mtl_txn_rec.Serial_number := NULL;
4236:
4237: IF( p_x_ahl_mtl_txn_rec.Reason_Id = FND_API.G_MISS_NUM) THEN
4238: p_x_ahl_mtl_txn_rec.Reason_Id := NULL;
4239: END IF;
4240: IF( p_x_ahl_mtl_txn_rec.Serial_number = FND_API.G_MISS_CHAR) THEN
4241: p_x_ahl_mtl_txn_rec.Serial_number := NULL;
4242: END IF;
4243: IF( p_x_ahl_mtl_txn_rec.Lot_number = FND_API.G_MISS_CHAR) THEN
4244: p_x_ahl_mtl_txn_rec.Lot_number := NULL;
4239: END IF;
4240: IF( p_x_ahl_mtl_txn_rec.Serial_number = FND_API.G_MISS_CHAR) THEN
4241: p_x_ahl_mtl_txn_rec.Serial_number := NULL;
4242: END IF;
4243: IF( p_x_ahl_mtl_txn_rec.Lot_number = FND_API.G_MISS_CHAR) THEN
4244: p_x_ahl_mtl_txn_rec.Lot_number := NULL;
4245: END IF;
4246: IF (p_x_ahl_mtl_txn_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
4247: p_x_ahl_mtl_txn_rec.ATTRIBUTE_CATEGORY := NULL;
4242: END IF;
4243: IF( p_x_ahl_mtl_txn_rec.Lot_number = FND_API.G_MISS_CHAR) THEN
4244: p_x_ahl_mtl_txn_rec.Lot_number := NULL;
4245: END IF;
4246: IF (p_x_ahl_mtl_txn_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
4247: p_x_ahl_mtl_txn_rec.ATTRIBUTE_CATEGORY := NULL;
4248: END IF;
4249: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
4250: p_x_ahl_mtl_txn_rec.ATTRIBUTE1 := NULL;
4245: END IF;
4246: IF (p_x_ahl_mtl_txn_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
4247: p_x_ahl_mtl_txn_rec.ATTRIBUTE_CATEGORY := NULL;
4248: END IF;
4249: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
4250: p_x_ahl_mtl_txn_rec.ATTRIBUTE1 := NULL;
4251: END IF;
4252: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
4253: p_x_ahl_mtl_txn_rec.ATTRIBUTE2 := NULL;
4248: END IF;
4249: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
4250: p_x_ahl_mtl_txn_rec.ATTRIBUTE1 := NULL;
4251: END IF;
4252: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
4253: p_x_ahl_mtl_txn_rec.ATTRIBUTE2 := NULL;
4254: END IF;
4255: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
4256: p_x_ahl_mtl_txn_rec.ATTRIBUTE3 := NULL;
4251: END IF;
4252: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
4253: p_x_ahl_mtl_txn_rec.ATTRIBUTE2 := NULL;
4254: END IF;
4255: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
4256: p_x_ahl_mtl_txn_rec.ATTRIBUTE3 := NULL;
4257: END IF;
4258: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
4259: p_x_ahl_mtl_txn_rec.ATTRIBUTE4 := NULL;
4254: END IF;
4255: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
4256: p_x_ahl_mtl_txn_rec.ATTRIBUTE3 := NULL;
4257: END IF;
4258: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
4259: p_x_ahl_mtl_txn_rec.ATTRIBUTE4 := NULL;
4260: END IF;
4261: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
4262: p_x_ahl_mtl_txn_rec.ATTRIBUTE5 := NULL;
4257: END IF;
4258: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
4259: p_x_ahl_mtl_txn_rec.ATTRIBUTE4 := NULL;
4260: END IF;
4261: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
4262: p_x_ahl_mtl_txn_rec.ATTRIBUTE5 := NULL;
4263: END IF;
4264: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
4265: p_x_ahl_mtl_txn_rec.ATTRIBUTE6 := NULL;
4260: END IF;
4261: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
4262: p_x_ahl_mtl_txn_rec.ATTRIBUTE5 := NULL;
4263: END IF;
4264: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
4265: p_x_ahl_mtl_txn_rec.ATTRIBUTE6 := NULL;
4266: END IF;
4267: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
4268: p_x_ahl_mtl_txn_rec.ATTRIBUTE7 := NULL;
4263: END IF;
4264: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
4265: p_x_ahl_mtl_txn_rec.ATTRIBUTE6 := NULL;
4266: END IF;
4267: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
4268: p_x_ahl_mtl_txn_rec.ATTRIBUTE7 := NULL;
4269: END IF;
4270: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
4271: p_x_ahl_mtl_txn_rec.ATTRIBUTE8 := NULL;
4266: END IF;
4267: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
4268: p_x_ahl_mtl_txn_rec.ATTRIBUTE7 := NULL;
4269: END IF;
4270: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
4271: p_x_ahl_mtl_txn_rec.ATTRIBUTE8 := NULL;
4272: END IF;
4273: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
4274: p_x_ahl_mtl_txn_rec.ATTRIBUTE9 := NULL;
4269: END IF;
4270: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
4271: p_x_ahl_mtl_txn_rec.ATTRIBUTE8 := NULL;
4272: END IF;
4273: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
4274: p_x_ahl_mtl_txn_rec.ATTRIBUTE9 := NULL;
4275: END IF;
4276: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
4277: p_x_ahl_mtl_txn_rec.ATTRIBUTE10 := NULL;
4272: END IF;
4273: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
4274: p_x_ahl_mtl_txn_rec.ATTRIBUTE9 := NULL;
4275: END IF;
4276: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
4277: p_x_ahl_mtl_txn_rec.ATTRIBUTE10 := NULL;
4278: END IF;
4279: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
4280: p_x_ahl_mtl_txn_rec.ATTRIBUTE11 := NULL;
4275: END IF;
4276: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
4277: p_x_ahl_mtl_txn_rec.ATTRIBUTE10 := NULL;
4278: END IF;
4279: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
4280: p_x_ahl_mtl_txn_rec.ATTRIBUTE11 := NULL;
4281: END IF;
4282: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
4283: p_x_ahl_mtl_txn_rec.ATTRIBUTE12 := NULL;
4278: END IF;
4279: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
4280: p_x_ahl_mtl_txn_rec.ATTRIBUTE11 := NULL;
4281: END IF;
4282: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
4283: p_x_ahl_mtl_txn_rec.ATTRIBUTE12 := NULL;
4284: END IF;
4285: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
4286: p_x_ahl_mtl_txn_rec.ATTRIBUTE13 := NULL;
4281: END IF;
4282: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
4283: p_x_ahl_mtl_txn_rec.ATTRIBUTE12 := NULL;
4284: END IF;
4285: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
4286: p_x_ahl_mtl_txn_rec.ATTRIBUTE13 := NULL;
4287: END IF;
4288: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
4289: p_x_ahl_mtl_txn_rec.ATTRIBUTE14 := NULL;
4284: END IF;
4285: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
4286: p_x_ahl_mtl_txn_rec.ATTRIBUTE13 := NULL;
4287: END IF;
4288: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
4289: p_x_ahl_mtl_txn_rec.ATTRIBUTE14 := NULL;
4290: END IF;
4291: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
4292: p_x_ahl_mtl_txn_rec.ATTRIBUTE15 := NULL;
4287: END IF;
4288: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
4289: p_x_ahl_mtl_txn_rec.ATTRIBUTE14 := NULL;
4290: END IF;
4291: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
4292: p_x_ahl_mtl_txn_rec.ATTRIBUTE15 := NULL;
4293: END IF;
4294:
4295: IF(p_x_ahl_mtl_txn_rec.transaction_reference = FND_API.G_MISS_CHAR) THEN
4291: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
4292: p_x_ahl_mtl_txn_rec.ATTRIBUTE15 := NULL;
4293: END IF;
4294:
4295: IF(p_x_ahl_mtl_txn_rec.transaction_reference = FND_API.G_MISS_CHAR) THEN
4296: p_x_ahl_mtl_txn_rec.transaction_reference := NULL;
4297: END IF;
4298:
4299: IF G_DEBUG='Y' THEN
4315: p_organization_id => p_x_ahl_mtl_txn_rec.organization_id,
4316: p_x_mti_seglist => l_mti_seglist,
4317: x_return_status => x_return_status);
4318:
4319: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4320: RAISE FND_API.G_EXC_ERROR;
4321: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4323: END IF;
4316: p_x_mti_seglist => l_mti_seglist,
4317: x_return_status => x_return_status);
4318:
4319: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4320: RAISE FND_API.G_EXC_ERROR;
4321: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4323: END IF;
4324:
4317: x_return_status => x_return_status);
4318:
4319: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4320: RAISE FND_API.G_EXC_ERROR;
4321: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4323: END IF;
4324:
4325: END IF;
4318:
4319: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
4320: RAISE FND_API.G_EXC_ERROR;
4321: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4323: END IF;
4324:
4325: END IF;
4326:
4586: END IF;
4587:
4588: EXCEPTION
4589: WHEN OTHERS THEN
4590: x_return_status := FND_API.G_RET_STS_ERROR;
4591: IF G_DEBUG='Y' THEN
4592: AHL_DEBUG_PUB.debug('Exception inserting into mtl_txn interface' || SQLCODE);
4593: AHL_DEBUG_PUB.debug('SQLERRM:' || SQLERRM);
4594:
4597: FND_MESSAGE.Set_Token('MSG',SQLERRM);
4598: FND_MESSAGE.Set_Token('ITEM',p_x_ahl_mtl_txn_rec.Inventory_Item_Id);
4599: FND_MESSAGE.Set_Token('WO_NAME',p_x_ahl_mtl_txn_rec.workorder_id);
4600: FND_MSG_PUB.ADD;
4601: RAISE FND_API.G_EXC_ERROR;
4602:
4603: END INSERT_MTL_TXN_INTF;
4604:
4605: /* This is a funciton used by the front queries which
5451: 'ahl.plsql.AHL_PRD_MTLTXN_PVT.getDispositionReturn',
5452: 'Error query ahl_mtl_ret_dispositions_v'
5453: );
5454: END IF;
5455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5456: END;
5457:
5458: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5459: fnd_log.string
7004:
7005: --Material txns search api. Called from Material txn return UI.
7006: PROCEDURE GET_MTL_TRANS_RETURNS(
7007: p_api_version IN NUMBER := 1.0,
7008: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7009: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7010: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7011: p_default IN VARCHAR2 := FND_API.G_FALSE,
7012: p_module_type IN VARCHAR2 := NULL,
7005: --Material txns search api. Called from Material txn return UI.
7006: PROCEDURE GET_MTL_TRANS_RETURNS(
7007: p_api_version IN NUMBER := 1.0,
7008: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7009: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7010: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7011: p_default IN VARCHAR2 := FND_API.G_FALSE,
7012: p_module_type IN VARCHAR2 := NULL,
7013: x_return_status OUT NOCOPY VARCHAR2,
7006: PROCEDURE GET_MTL_TRANS_RETURNS(
7007: p_api_version IN NUMBER := 1.0,
7008: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7009: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7010: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7011: p_default IN VARCHAR2 := FND_API.G_FALSE,
7012: p_module_type IN VARCHAR2 := NULL,
7013: x_return_status OUT NOCOPY VARCHAR2,
7014: x_msg_count OUT NOCOPY NUMBER,
7007: p_api_version IN NUMBER := 1.0,
7008: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7009: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7010: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7011: p_default IN VARCHAR2 := FND_API.G_FALSE,
7012: p_module_type IN VARCHAR2 := NULL,
7013: x_return_status OUT NOCOPY VARCHAR2,
7014: x_msg_count OUT NOCOPY NUMBER,
7015: x_msg_data OUT NOCOPY VARCHAR2,
7084: -- Standard start of API savepoint
7085: SAVEPOINT GET_MTL_TRANS_RETURNS_PVT;
7086:
7087: -- Standard call to check for call compatibility
7088: IF NOT FND_API.Compatible_API_Call
7089: (l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7091: END IF;
7092: -- Initialize message list if p_init_msg_list is set to TRUE
7086:
7087: -- Standard call to check for call compatibility
7088: IF NOT FND_API.Compatible_API_Call
7089: (l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7091: END IF;
7092: -- Initialize message list if p_init_msg_list is set to TRUE
7093: IF FND_API.To_Boolean(p_init_msg_list) THEN
7094: FND_MSG_PUB.Initialize;
7089: (l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
7090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7091: END IF;
7092: -- Initialize message list if p_init_msg_list is set to TRUE
7093: IF FND_API.To_Boolean(p_init_msg_list) THEN
7094: FND_MSG_PUB.Initialize;
7095: END IF;
7096:
7097: -- Initialize API return status to success
7094: FND_MSG_PUB.Initialize;
7095: END IF;
7096:
7097: -- Initialize API return status to success
7098: x_return_status := FND_API.G_RET_STS_SUCCESS;
7099: IF(P_prd_Mtltxn_criteria_rec.DISPOSITION_NAME IS NULL)THEN
7100: getMtlTxnsReturns
7101: (
7102: p_x_ahl_prd_mtl_txn_tbl => x_ahl_mtltxn_tbl,
7178: END IF;
7179:
7180: --
7181: EXCEPTION
7182: WHEN FND_API.G_EXC_ERROR THEN
7183: x_return_status := FND_API.G_RET_STS_ERROR;
7184: Rollback to GET_MTL_TRANS_RETURNS_PVT;
7185: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7186: p_data => x_msg_data,
7179:
7180: --
7181: EXCEPTION
7182: WHEN FND_API.G_EXC_ERROR THEN
7183: x_return_status := FND_API.G_RET_STS_ERROR;
7184: Rollback to GET_MTL_TRANS_RETURNS_PVT;
7185: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7186: p_data => x_msg_data,
7187: p_encoded => fnd_api.g_false);
7183: x_return_status := FND_API.G_RET_STS_ERROR;
7184: Rollback to GET_MTL_TRANS_RETURNS_PVT;
7185: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7186: p_data => x_msg_data,
7187: p_encoded => fnd_api.g_false);
7188:
7189:
7190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7186: p_data => x_msg_data,
7187: p_encoded => fnd_api.g_false);
7188:
7189:
7190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7192: Rollback to GET_MTL_TRANS_RETURNS_PVT;
7193: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7194: p_data => x_msg_data,
7187: p_encoded => fnd_api.g_false);
7188:
7189:
7190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7192: Rollback to GET_MTL_TRANS_RETURNS_PVT;
7193: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7194: p_data => x_msg_data,
7195: p_encoded => fnd_api.g_false);
7191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7192: Rollback to GET_MTL_TRANS_RETURNS_PVT;
7193: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7194: p_data => x_msg_data,
7195: p_encoded => fnd_api.g_false);
7196:
7197: WHEN OTHERS THEN
7198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7199: Rollback to GET_MTL_TRANS_RETURNS_PVT;
7194: p_data => x_msg_data,
7195: p_encoded => fnd_api.g_false);
7196:
7197: WHEN OTHERS THEN
7198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7199: Rollback to GET_MTL_TRANS_RETURNS_PVT;
7200: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7201: p_procedure_name => 'GET_MTL_TRANS_RETURNS',
7202: p_error_text => SQLERRM);
7201: p_procedure_name => 'GET_MTL_TRANS_RETURNS',
7202: p_error_text => SQLERRM);
7203: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7204: p_data => x_msg_data,
7205: p_encoded => fnd_api.g_false);
7206:
7207: END GET_MTL_TRANS_RETURNS;
7208:
7209: /*
7258:
7259: BEGIN
7260:
7261: -- initialize out parameters.
7262: x_return_status := FND_API.G_RET_STS_SUCCESS;
7263: x_reservation_flag := 'N';
7264:
7265: -- check if serial reservation exists against a different workorder.
7266: OPEN get_scheduled_mater_csr (p_ahl_mtl_txn_rec.serial_number,
7283: -- relieve reservation against l_demand_source_header_id.
7284:
7285: AHL_RSV_RESERVATIONS_PVT.RELIEVE_RESERVATION(
7286: p_api_version => 1.0,
7287: p_init_msg_list => FND_API.G_FALSE,
7288: p_commit => FND_API.G_FALSE,
7289: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7290: p_module_type => NULL,
7291: x_return_status => x_return_status,
7284:
7285: AHL_RSV_RESERVATIONS_PVT.RELIEVE_RESERVATION(
7286: p_api_version => 1.0,
7287: p_init_msg_list => FND_API.G_FALSE,
7288: p_commit => FND_API.G_FALSE,
7289: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7290: p_module_type => NULL,
7291: x_return_status => x_return_status,
7292: x_msg_count => l_msg_count,
7285: AHL_RSV_RESERVATIONS_PVT.RELIEVE_RESERVATION(
7286: p_api_version => 1.0,
7287: p_init_msg_list => FND_API.G_FALSE,
7288: p_commit => FND_API.G_FALSE,
7289: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7290: p_module_type => NULL,
7291: x_return_status => x_return_status,
7292: x_msg_count => l_msg_count,
7293: x_msg_data => l_msg_data,
7294: p_scheduled_material_id => l_schedule_material_id,
7295: p_serial_number => p_ahl_mtl_txn_rec.serial_number
7296: );
7297:
7298: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7300: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7301: RAISE FND_API.G_EXC_ERROR;
7302: END IF;
7295: p_serial_number => p_ahl_mtl_txn_rec.serial_number
7296: );
7297:
7298: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7300: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7301: RAISE FND_API.G_EXC_ERROR;
7302: END IF;
7303:
7296: );
7297:
7298: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7300: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7301: RAISE FND_API.G_EXC_ERROR;
7302: END IF;
7303:
7304: END IF; -- l_demand_source_header_id <>
7297:
7298: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
7299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7300: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
7301: RAISE FND_API.G_EXC_ERROR;
7302: END IF;
7303:
7304: END IF; -- l_demand_source_header_id <>
7305:
7383: x_msg_count => x_msg_count,
7384: x_msg_data => x_msg_data,
7385: x_return_status => x_return_status);
7386:
7387: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_x_material_txn_tbl.count > 0) THEN
7388: FOR i IN l_x_material_txn_tbl.FIRST..l_x_material_txn_tbl.LAST LOOP
7389:
7390: p_x_ahl_mtltxn_tbl(i).Workorder_Id := l_x_material_txn_tbl(i).Workorder_Id;
7391: p_x_ahl_mtltxn_tbl(i).Workorder_Name := l_x_material_txn_tbl(i).Workorder_Name;
7557: AHL_DEBUG_PUB.DEBUG('Start Procedure:Splitting locator concatenated segments:' || p_concat_segs, 'Get_MTL_LocatorSegs');
7558: END IF;
7559:
7560: -- initialize status to success.
7561: x_return_status := FND_API.G_RET_STS_SUCCESS;
7562:
7563: -- set mfg_organization_id profile - bug# 6010795.
7564: fnd_profile.put('MFG_ORGANIZATION_ID', p_organization_id);
7565:
7597: IF NOT(l_valid_flag) THEN
7598: FND_MESSAGE.Set_Name('AHL','AHL_INPUT_NUM_LOC_SEGS_INVALID');
7599: FND_MESSAGE.Set_Token('LOC_SEG',p_concat_segs);
7600: FND_MSG_PUB.ADD;
7601: x_return_status := FND_API.G_RET_STS_ERROR;
7602: RETURN;
7603: END IF;
7604:
7605: -- get IDs for the concatenated segments as MTI validates IDs.
7620: FND_MESSAGE.Set_Name('AHL','AHL_INPUT_NUM_LOC_SEGS_INVALID');
7621: FND_MESSAGE.Set_Token('LOC_NUM',l_flex_nseg);
7622: FND_MESSAGE.Set_Token('LOC_SEG',p_concat_segs);
7623: FND_MSG_PUB.ADD;
7624: x_return_status := FND_API.G_RET_STS_ERROR;
7625: RETURN;
7626: END IF;
7627: */
7628: