[Home] [Help]
277:
278: l_recepient_id NUMBER;
279: BEGIN
280:
281: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
282:
283: -- Get the vlaues for Entity ID from Workorders table
284: -- and workorder operation id from workorder_operations table for the given work
285: -- order id and Operation seq number
289: AHL_DEBUG_PUB.debug('Convert_Name_To_Id');
290: END IF;
291:
292: IF ( (p_x_ahl_mtltxn_rec.Workorder_Id IS NULL
293: OR p_x_ahl_mtltxn_rec.Workorder_Id = FND_API.G_MISS_NUM)) THEN
294:
295: IF (p_x_ahl_mtltxn_rec.WORKORDER_NAME IS NOT NULL AND
296: p_x_ahl_mtltxn_rec.WORKORDER_NAME <> FND_API.G_MISS_CHAR)
297: THEN
292: IF ( (p_x_ahl_mtltxn_rec.Workorder_Id IS NULL
293: OR p_x_ahl_mtltxn_rec.Workorder_Id = FND_API.G_MISS_NUM)) THEN
294:
295: IF (p_x_ahl_mtltxn_rec.WORKORDER_NAME IS NOT NULL AND
296: p_x_ahl_mtltxn_rec.WORKORDER_NAME <> FND_API.G_MISS_CHAR)
297: THEN
298:
299: OPEN WORKORDER_CUR(p_x_ahl_mtltxn_rec.WORKORDER_NAME);
300: FETCH WORKORDER_CUR INTO L_WORKDET_REC;
302: THEN
303: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WORKORDER');
304: FND_MESSAGE.Set_Token('WORKORDER',p_x_ahl_mtltxn_rec.Workorder_name);
305: FND_MSG_PUB.ADD;
306: x_return_status := Fnd_Api.G_RET_STS_ERROR;
307: ELSIF L_WORKDET_REC.JOB_STATUS_CODE<>'3' AND
308: L_WORKDET_REC.JOB_STATUS_CODE<>'19' AND
309: L_WORKDET_REC.JOB_STATUS_CODE<>'20' AND
310: L_WORKDET_REC.JOB_STATUS_CODE<>'6' AND
311: L_WORKDET_REC.JOB_STATUS_CODE<>'4' THEN
312: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_JOB_STATUS');
313: FND_MESSAGE.Set_Token('STATUS',L_WORKDET_REC.job_status_meaning);
314: FND_MSG_PUB.ADD;
315: x_return_status := Fnd_Api.G_RET_STS_ERROR;
316: ELSE
317: p_x_ahl_mtltxn_rec.Workorder_Id :=L_WORKDET_REC.WORKORDER_ID;
318: p_x_ahl_mtltxn_rec.Workorder_Status :=L_WORKDET_REC.JOB_STATUS_MEANING;
319: p_x_ahl_mtltxn_rec.Workorder_Status_Code :=L_WORKDET_REC.JOB_STATUS_CODE;
323: CLOSE WORKORDER_CUR;
324: ELSE -- both Workorder_Id and WORKORDER_NAME are NULLs
325: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_WORKORDER_ID');
326: FND_MSG_PUB.ADD;
327: x_return_status := Fnd_Api.G_RET_STS_ERROR;
328: END IF; -- p_x_ahl_mtltxn_rec.WORKORDER_NAME
329: ELSE -- workorderId is not null.
330: OPEN WORKORDER_ID_CUR(p_x_ahl_mtltxn_rec.Workorder_Id);
331: FETCH WORKORDER_ID_CUR INTO L_WORKDET_ID_REC;
333: THEN
334: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WORKORDER');
335: FND_MESSAGE.Set_Token('WORKORDER',p_x_ahl_mtltxn_rec.Workorder_Id);
336: FND_MSG_PUB.ADD;
337: x_return_status := Fnd_Api.G_RET_STS_ERROR;
338: ELSIF L_WORKDET_REC.JOB_STATUS_CODE<>'3' AND -- Released
339: L_WORKDET_REC.JOB_STATUS_CODE<>'19' AND -- Parts Hold
340: L_WORKDET_REC.JOB_STATUS_CODE<>'20' AND -- pending deferral
341: L_WORKDET_REC.JOB_STATUS_CODE<>'6' AND -- on hold
355: END IF; -- p_x_ahl_mtltxn_tbl(i).Workorder_Id
356:
357: -- Check for operation sequence number.
358: IF ( p_x_ahl_mtltxn_rec.Operation_Seq_num IS NULL
359: OR p_x_ahl_mtltxn_rec.Operation_Seq_num = FND_API.G_MISS_NUM) THEN
360: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_OPER_SEQ');
361: FND_MSG_PUB.ADD;
362: x_return_status := Fnd_Api.G_RET_STS_ERROR;
363: END IF;
358: IF ( p_x_ahl_mtltxn_rec.Operation_Seq_num IS NULL
359: OR p_x_ahl_mtltxn_rec.Operation_Seq_num = FND_API.G_MISS_NUM) THEN
360: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_OPER_SEQ');
361: FND_MSG_PUB.ADD;
362: x_return_status := Fnd_Api.G_RET_STS_ERROR;
363: END IF;
364:
365: -- Check for errors.
366: IF (x_return_status = Fnd_Api.G_RET_STS_ERROR)
362: x_return_status := Fnd_Api.G_RET_STS_ERROR;
363: END IF;
364:
365: -- Check for errors.
366: IF (x_return_status = Fnd_Api.G_RET_STS_ERROR)
367: THEN
368: RETURN; -- do not proceed for the rest of the validations.
369: END IF;
370:
368: RETURN; -- do not proceed for the rest of the validations.
369: END IF;
370:
371: IF (p_x_ahl_mtltxn_rec.Wip_Entity_Id IS NULL
372: OR p_x_ahl_mtltxn_rec.Wip_Entity_Id = FND_API.G_MISS_NUM) THEN
373: IF G_DEBUG='Y' THEN
374: AHL_DEBUG_PUB.debug('Getting WipEntity for['||p_x_ahl_mtltxn_rec.Workorder_Id||']');
375: END IF;
376: OPEN WIP_JOB_ID_CUR(p_x_ahl_mtltxn_rec.Workorder_Id);
378: IF(WIP_JOB_ID_CUR%NOTFOUND) THEN
379: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WIP_ENTITY_WO');
380: FND_MESSAGE.Set_Token('WORKORDER',p_x_ahl_mtltxn_rec.Workorder_Id);
381: FND_MSG_PUB.ADD;
382: x_return_status := Fnd_Api.G_RET_STS_ERROR;
383: END IF;
384: CLOSE WIP_JOB_ID_CUR;
385: END IF;
386:
392: END IF;
393:
394:
395: IF (p_x_ahl_mtltxn_rec.Workorder_Operation_Id IS NULL
396: OR p_x_ahl_mtltxn_rec.Workorder_Operation_Id = FND_API.G_MISS_NUM) THEN
397: IF G_DEBUG='Y' THEN
398: AHL_DEBUG_PUB.debug('selecting woopid for['||p_x_ahl_mtltxn_rec.Workorder_Id||','||p_x_ahl_mtltxn_rec.Operation_Seq_num||']');
399:
400: END IF;
405: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WO_OP');
406: FND_MESSAGE.Set_Token('WORKORDER',p_x_ahl_mtltxn_rec.Workorder_Id);
407: FND_MESSAGE.Set_Token('OP_SEQUENCE',p_x_ahl_mtltxn_rec.Operation_Seq_num);
408: FND_MSG_PUB.ADD;
409: x_return_status := Fnd_Api.G_RET_STS_ERROR;
410: END IF;
411: CLOSE WO_OP_CUR;
412: END IF;
413: IF G_DEBUG='Y' THEN
415: END IF;
416:
417: --Convert Transaction Type Name into Transaction Type Id
418: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Id IS NULL
419: OR p_x_ahl_mtltxn_rec.Transaction_Type_Id = FND_API.G_MISS_NUM) THEN
420: IF G_DEBUG='Y' THEN
421: AHL_DEBUG_PUB.debug('Converting Txn type name['||p_x_ahl_mtltxn_rec.Transaction_Type_Name||']');
422: END IF;
423: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Name IS NULL
420: IF G_DEBUG='Y' THEN
421: AHL_DEBUG_PUB.debug('Converting Txn type name['||p_x_ahl_mtltxn_rec.Transaction_Type_Name||']');
422: END IF;
423: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Name IS NULL
424: OR p_x_ahl_mtltxn_rec.Transaction_Type_Name = FND_API.G_MISS_CHAR) THEN
425: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_TXN_TYPE');
426: FND_MSG_PUB.ADD;
427: x_return_status := Fnd_Api.G_RET_STS_ERROR;
428: ELSE
423: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Name IS NULL
424: OR p_x_ahl_mtltxn_rec.Transaction_Type_Name = FND_API.G_MISS_CHAR) THEN
425: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_TXN_TYPE');
426: FND_MSG_PUB.ADD;
427: x_return_status := Fnd_Api.G_RET_STS_ERROR;
428: ELSE
429: OPEN Transaction_Type_Cur(p_x_ahl_mtltxn_rec.Transaction_Type_Name);
430: FETCH Transaction_Type_Cur INTO p_x_ahl_mtltxn_rec.Transaction_Type_Id ;
431: IF(Transaction_Type_Cur%NOTFOUND) THEN
431: IF(Transaction_Type_Cur%NOTFOUND) THEN
432: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_TXN_TYPE');
433: FND_MESSAGE.Set_Token('TXN_TYPE',p_x_ahl_mtltxn_rec.Transaction_Type_Name);
434: FND_MSG_PUB.ADD;
435: x_return_status := Fnd_Api.G_RET_STS_ERROR;
436: END IF;
437: CLOSE Transaction_Type_Cur;
438: END IF;
439: END IF;
441: AHL_DEBUG_PUB.debug('after the txn type select');
442: END IF;
443:
444: -- Convert item segments into item id
445: 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
446: IF G_DEBUG='Y' THEN
447: AHL_DEBUG_PUB.debug('Converting item for['||to_char(p_x_ahl_mtltxn_rec.Organization_Id)||','||p_x_ahl_mtltxn_rec.Inventory_Item_Segments||']');
448: END IF;
449:
447: AHL_DEBUG_PUB.debug('Converting item for['||to_char(p_x_ahl_mtltxn_rec.Organization_Id)||','||p_x_ahl_mtltxn_rec.Inventory_Item_Segments||']');
448: END IF;
449:
450: IF (p_x_ahl_mtltxn_rec.Inventory_Item_Segments IS NULL
451: OR p_x_ahl_mtltxn_rec.Inventory_Item_Segments = FND_API.G_MISS_CHAR) THEN
452: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_ITEM');
453: FND_MSG_PUB.ADD;
454: RAISE FND_API.G_EXC_ERROR;
455: ELSE
450: IF (p_x_ahl_mtltxn_rec.Inventory_Item_Segments IS NULL
451: OR p_x_ahl_mtltxn_rec.Inventory_Item_Segments = FND_API.G_MISS_CHAR) THEN
452: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_ITEM');
453: FND_MSG_PUB.ADD;
454: RAISE FND_API.G_EXC_ERROR;
455: ELSE
456: OPEN Item_Cur(p_x_ahl_mtltxn_rec.Organization_Id,
457: p_x_ahl_mtltxn_rec.Inventory_Item_Segments);
458: FETCH Item_Cur INTO p_x_ahl_mtltxn_rec.Inventory_Item_Id ;
459: IF(Item_Cur%NOTFOUND) THEN
460: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_ITEM');
461: FND_MESSAGE.Set_Token('FIELD',p_x_ahl_mtltxn_rec.Inventory_Item_Segments);
462: FND_MSG_PUB.ADD;
463: x_return_status := Fnd_Api.G_RET_STS_ERROR;
464: END IF;
465: CLOSE Item_Cur;
466: END IF;
467:
472: END IF;
473:
474: -- Convert Locator segments into locator id when item is locator controlled.
475: IF (p_x_ahl_mtltxn_rec.Locator_Id IS NULL
476: OR p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
477: IF (p_x_ahl_mtltxn_rec.Locator_Segments IS NOT NULL
478: AND p_x_ahl_mtltxn_rec.Locator_Segments <> FND_API.G_MISS_CHAR) THEN
479: IF G_DEBUG='Y' THEN
480: AHL_DEBUG_PUB.debug('Converting locator['||to_char(p_x_ahl_mtltxn_rec.Organization_Id)||','||p_x_ahl_mtltxn_rec.Locator_Segments||']');
474: -- Convert Locator segments into locator id when item is locator controlled.
475: IF (p_x_ahl_mtltxn_rec.Locator_Id IS NULL
476: OR p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
477: IF (p_x_ahl_mtltxn_rec.Locator_Segments IS NOT NULL
478: AND p_x_ahl_mtltxn_rec.Locator_Segments <> FND_API.G_MISS_CHAR) THEN
479: IF G_DEBUG='Y' THEN
480: AHL_DEBUG_PUB.debug('Converting locator['||to_char(p_x_ahl_mtltxn_rec.Organization_Id)||','||p_x_ahl_mtltxn_rec.Locator_Segments||']');
481: END IF;
482: OPEN Location_Cur(p_x_ahl_mtltxn_rec.Organization_Id,
488: THEN
489: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOCATION');
490: FND_MESSAGE.Set_Token('LOCATOR',p_x_ahl_mtltxn_rec.Locator_Segments);
491: FND_MSG_PUB.ADD;
492: x_return_status := Fnd_Api.G_RET_STS_ERROR;
493: ELSE
494: */
495: IF (Location_Cur%FOUND) THEN
496: p_x_ahl_mtltxn_rec.Locator_Segments := l_locator_segments;--Fix for bug number 5903275
506: AHL_DEBUG_PUB.debug('after the locator select');
507: END IF;
508:
509: -- convert reason name into reason id.
510: IF (p_x_ahl_mtltxn_rec.Reason_Id IS NULL OR p_x_ahl_mtltxn_rec.Reason_Id = FND_API.G_MISS_NUM)
511: THEN
512: IF (p_x_ahl_mtltxn_rec.Reason_Name IS NOT NULL
513: AND p_x_ahl_mtltxn_rec.Reason_Name <> FND_API.G_MISS_CHAR)
514: THEN
509: -- convert reason name into reason id.
510: IF (p_x_ahl_mtltxn_rec.Reason_Id IS NULL OR p_x_ahl_mtltxn_rec.Reason_Id = FND_API.G_MISS_NUM)
511: THEN
512: IF (p_x_ahl_mtltxn_rec.Reason_Name IS NOT NULL
513: AND p_x_ahl_mtltxn_rec.Reason_Name <> FND_API.G_MISS_CHAR)
514: THEN
515: IF G_DEBUG='Y' THEN
516: AHL_DEBUG_PUB.debug('Converting reason name'||p_x_ahl_mtltxn_rec.Reason_Name||']');
517: END IF;
520: IF(Reason_Cur%NOTFOUND) THEN
521: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_REASON');
522: FND_MESSAGE.Set_Token('REASON',p_x_ahl_mtltxn_rec.Reason_Name);
523: FND_MSG_PUB.ADD;
524: x_return_status := Fnd_Api.G_RET_STS_ERROR;
525: END IF;
526: CLOSE Reason_Cur;
527: END IF;
528:
536: --Convert Problem_code_Meaning to Problem_code incase of returns
537:
538: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.RETCOMP_TYPE) THEN
539: IF (p_x_ahl_mtltxn_rec.Problem_Code IS NULL
540: OR p_x_ahl_mtltxn_rec.Problem_Code = FND_API.G_MISS_CHAR) THEN
541: IF (p_x_ahl_mtltxn_rec.Problem_Code_Meaning IS NOT NULL
542: AND p_x_ahl_mtltxn_rec.Problem_Code_Meaning <> FND_API.G_MISS_CHAR) THEN
543: IF G_DEBUG='Y' THEN
544: AHL_DEBUG_PUB.debug('Converting Problem code['||p_x_ahl_mtltxn_rec.Problem_Code_Meaning||']');
538: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.RETCOMP_TYPE) THEN
539: IF (p_x_ahl_mtltxn_rec.Problem_Code IS NULL
540: OR p_x_ahl_mtltxn_rec.Problem_Code = FND_API.G_MISS_CHAR) THEN
541: IF (p_x_ahl_mtltxn_rec.Problem_Code_Meaning IS NOT NULL
542: AND p_x_ahl_mtltxn_rec.Problem_Code_Meaning <> FND_API.G_MISS_CHAR) THEN
543: IF G_DEBUG='Y' THEN
544: AHL_DEBUG_PUB.debug('Converting Problem code['||p_x_ahl_mtltxn_rec.Problem_Code_Meaning||']');
545:
546: END IF;
549: IF(Fnd_Lookups_Cur%NOTFOUND) THEN
550: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PROBLEM_CODE_INVALID');
551: FND_MESSAGE.Set_Token('CODE',p_x_ahl_mtltxn_rec.Problem_Code_Meaning);
552: FND_MSG_PUB.ADD;
553: x_return_status := Fnd_Api.G_RET_STS_ERROR;
554: END IF;
555: CLOSE Fnd_Lookups_Cur;
556: END IF;
557: END IF;
558: IF G_DEBUG='Y' THEN
559: AHL_DEBUG_PUB.debug('after problem code select');
560: END IF;
561: IF (p_x_ahl_mtltxn_rec.Condition_Desc IS NOT NULL
562: AND p_x_ahl_mtltxn_rec.Condition_Desc <> FND_API.G_MISS_CHAR)
563: THEN
564: IF G_DEBUG='Y' THEN
565: AHL_DEBUG_PUB.debug('Getting Condition for['||p_x_ahl_mtltxn_rec.Condition_Desc||']');
566: END IF;
570: IF(CONDITION_CUR%NOTFOUND) THEN
571: FND_MESSAGE.Set_Name('AHL','AHL_PRD_COND_INVALID');
572: FND_MESSAGE.Set_Token('CODE',p_x_ahl_mtltxn_rec.Condition_Desc);
573: FND_MSG_PUB.ADD;
574: x_return_status := Fnd_Api.G_RET_STS_ERROR;
575: END IF;
576:
577: CLOSE CONDITION_CUR;
578: END IF;
588:
589: -- nullify id and retrive id from name entered.
590: p_x_ahl_mtltxn_rec.RECEPIENT_ID := NULL;
591:
592: IF (p_x_ahl_mtltxn_rec.recepient_name IS NOT NULL AND p_x_ahl_mtltxn_rec.recepient_name <> FND_API.G_MISS_CHAR)
593: THEN
594: OPEN RECEPIENT_CUR(p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
595: FETCH RECEPIENT_CUR INTO p_x_ahl_mtltxn_rec.RECEPIENT_ID;
596: IF(RECEPIENT_CUR%NOTFOUND)
602: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_INVALID');
603: END IF;
604: FND_MESSAGE.Set_Token('RECEPIENT',p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
605: FND_MSG_PUB.ADD;
606: x_return_status := Fnd_Api.G_RET_STS_ERROR;
607: END IF;
608: CLOSE RECEPIENT_CUR;
609: END IF;
610:
609: END IF;
610:
611: ELSE
612: --if backend call.
613: IF (p_x_ahl_mtltxn_rec.recepient_name IS NOT NULL AND p_x_ahl_mtltxn_rec.recepient_name <> FND_API.G_MISS_CHAR)
614: THEN
615: -- if name is availave retrive id from name
616: OPEN RECEPIENT_CUR(p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
617: FETCH RECEPIENT_CUR INTO l_recepient_id;
624: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_INVALID');
625: END IF;
626: FND_MESSAGE.Set_Token('RECEPIENT',p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
627: FND_MSG_PUB.ADD;
628: x_return_status := Fnd_Api.G_RET_STS_ERROR;
629: ELSE
630: -- if id is available then see if this id is the same as the one retrived from the name.
631: IF(p_x_ahl_mtltxn_rec.recepient_id IS NOT NULL AND p_x_ahl_mtltxn_rec.recepient_id <> FND_API.G_MISS_NUM)
632: THEN
627: FND_MSG_PUB.ADD;
628: x_return_status := Fnd_Api.G_RET_STS_ERROR;
629: ELSE
630: -- if id is available then see if this id is the same as the one retrived from the name.
631: IF(p_x_ahl_mtltxn_rec.recepient_id IS NOT NULL AND p_x_ahl_mtltxn_rec.recepient_id <> FND_API.G_MISS_NUM)
632: THEN
633: IF(l_recepient_id <> p_x_ahl_mtltxn_rec.RECEPIENT_ID)
634: THEN
635: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.RETCOMP_TYPE)
639: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_INVALID');
640: END IF;
641: FND_MESSAGE.Set_Token('RECEPIENT',p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
642: FND_MSG_PUB.ADD;
643: x_return_status := Fnd_Api.G_RET_STS_ERROR;
644: END IF;
645: ELSE
646: -- if id is not available then populate the id with the id retrived.
647: p_x_ahl_mtltxn_rec.recepient_id:=l_recepient_id;
650: CLOSE RECEPIENT_CUR;
651: END IF;
652: END IF;
653:
654: IF(p_x_ahl_mtltxn_rec.recepient_id IS NULL OR p_x_ahl_mtltxn_rec.recepient_id = FND_API.G_MISS_NUM)
655: THEN
656: IF(NVL(FND_PROFILE.VALUE('AHL_PRD_MTX_RECEPIENT'),'N')='Y')
657: THEN
658: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.RETCOMP_TYPE)
661: ELSE
662: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_MANDATORY');
663: END IF;
664: FND_MSG_PUB.ADD;
665: x_return_status := Fnd_Api.G_RET_STS_ERROR;
666: ELSE
667: OPEN DEFAULT_USER_CUR;
668: FETCH DEFAULT_USER_CUR INTO p_x_ahl_mtltxn_rec.RECEPIENT_ID;
669: IF DEFAULT_USER_CUR%NOTFOUND
675: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_INVALID');
676: END IF;
677: FND_MESSAGE.Set_Token('RECEPIENT',p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
678: FND_MSG_PUB.ADD;
679: x_return_status := Fnd_Api.G_RET_STS_ERROR;
680: END IF;
681: CLOSE DEFAULT_USER_CUR;
682: END IF;
683: END IF;
683: END IF;
684:
685: --Convert UOM DESC into UOM
686: IF (p_x_ahl_mtltxn_rec.Uom IS NULL
687: OR p_x_ahl_mtltxn_rec.Uom = FND_API.G_MISS_CHAR) THEN
688: IF G_DEBUG='Y' THEN
689: AHL_DEBUG_PUB.debug('Converting UOM['||p_x_ahl_mtltxn_rec.Uom_Desc||']');
690:
691: END IF;
689: AHL_DEBUG_PUB.debug('Converting UOM['||p_x_ahl_mtltxn_rec.Uom_Desc||']');
690:
691: END IF;
692: IF (p_x_ahl_mtltxn_rec.Uom_Desc IS NULL
693: OR p_x_ahl_mtltxn_rec.Uom_Desc = FND_API.G_MISS_CHAR) THEN
694: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_UOM');
695: FND_MSG_PUB.ADD;
696: x_return_status := Fnd_Api.G_RET_STS_ERROR;
697: ELSE
692: IF (p_x_ahl_mtltxn_rec.Uom_Desc IS NULL
693: OR p_x_ahl_mtltxn_rec.Uom_Desc = FND_API.G_MISS_CHAR) THEN
694: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_UOM');
695: FND_MSG_PUB.ADD;
696: x_return_status := Fnd_Api.G_RET_STS_ERROR;
697: ELSE
698: OPEN Uom_Cur(p_x_ahl_mtltxn_rec.Uom_Desc);
699: FETCH Uom_Cur INTO p_x_ahl_mtltxn_rec.Uom ;
700: IF(Uom_Cur%NOTFOUND) THEN
700: IF(Uom_Cur%NOTFOUND) THEN
701: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_UOM');
702: FND_MESSAGE.Set_Token('UOM',p_x_ahl_mtltxn_rec.Uom_Desc);
703: FND_MSG_PUB.ADD;
704: x_return_status := Fnd_Api.G_RET_STS_ERROR;
705: END IF;
706: CLOSE Uom_Cur;
707: END IF;
708:
711: AHL_DEBUG_PUB.debug('after UOM select');
712:
713: END IF;
714: EXCEPTION
715: WHEN FND_API.G_EXC_ERROR THEN
716: x_return_status := Fnd_Api.G_RET_STS_ERROR;
717:
718: END Convert_Name_To_Id;
719:
712:
713: END IF;
714: EXCEPTION
715: WHEN FND_API.G_EXC_ERROR THEN
716: x_return_status := Fnd_Api.G_RET_STS_ERROR;
717:
718: END Convert_Name_To_Id;
719:
720:
727:
728: PROCEDURE PERFORM_MTL_TXN
729: (
730: p_api_version IN NUMBER := 1.0,
731: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
732: p_commit IN VARCHAR2 := FND_API.G_FALSE,
733: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
734: p_default IN VARCHAR2 := FND_API.G_FALSE,
735: p_module_type IN VARCHAR2 := NULL,
728: PROCEDURE PERFORM_MTL_TXN
729: (
730: p_api_version IN NUMBER := 1.0,
731: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
732: p_commit IN VARCHAR2 := FND_API.G_FALSE,
733: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
734: p_default IN VARCHAR2 := FND_API.G_FALSE,
735: p_module_type IN VARCHAR2 := NULL,
736: p_create_sr IN VARCHAR2,
729: (
730: p_api_version IN NUMBER := 1.0,
731: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
732: p_commit IN VARCHAR2 := FND_API.G_FALSE,
733: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
734: p_default IN VARCHAR2 := FND_API.G_FALSE,
735: p_module_type IN VARCHAR2 := NULL,
736: p_create_sr IN VARCHAR2,
737: p_x_ahl_mtltxn_tbl IN OUT NOCOPY Ahl_Mtltxn_Tbl_Type,
730: p_api_version IN NUMBER := 1.0,
731: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
732: p_commit IN VARCHAR2 := FND_API.G_FALSE,
733: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
734: p_default IN VARCHAR2 := FND_API.G_FALSE,
735: p_module_type IN VARCHAR2 := NULL,
736: p_create_sr IN VARCHAR2,
737: p_x_ahl_mtltxn_tbl IN OUT NOCOPY Ahl_Mtltxn_Tbl_Type,
738: x_return_status OUT NOCOPY VARCHAR2,
850: -- Standard start of API savepoint
851: SAVEPOINT PERFORM_MTL_TXN_PVT;
852:
853: -- Standard call to check for call compatibility
854: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
855: G_PKG_NAME) THEN
856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
857: END IF;
858: -- Initialize message list if p_init_msg_list is set to TRUE
852:
853: -- Standard call to check for call compatibility
854: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
855: G_PKG_NAME) THEN
856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
857: END IF;
858: -- Initialize message list if p_init_msg_list is set to TRUE
859: IF FND_API.To_Boolean(p_init_msg_list) THEN
860: FND_MSG_PUB.Initialize;
855: G_PKG_NAME) THEN
856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
857: END IF;
858: -- Initialize message list if p_init_msg_list is set to TRUE
859: IF FND_API.To_Boolean(p_init_msg_list) THEN
860: FND_MSG_PUB.Initialize;
861: END IF;
862:
863: -- Initialize API return status to success
860: FND_MSG_PUB.Initialize;
861: END IF;
862:
863: -- Initialize API return status to success
864: x_return_status := FND_API.G_RET_STS_SUCCESS;
865:
866: -- call user hook api.
867: -- User Hooks
868: IF (JTF_USR_HKS.Ok_to_execute('AHL_PRD_MATERIAL_TXN_CUHK', 'PERFORM_MTLTXN_PRE', 'B', 'C')) THEN
869: Perform_MtlTxn_Pre(p_x_ahl_mtltxn_tbl => p_x_ahl_mtltxn_tbl,
870: x_msg_count => x_msg_count,
871: x_msg_data => x_msg_data,
872: x_return_status => x_return_status);
873: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
874: RAISE FND_API.G_EXC_ERROR;
875: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: END IF;
870: x_msg_count => x_msg_count,
871: x_msg_data => x_msg_data,
872: x_return_status => x_return_status);
873: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
874: RAISE FND_API.G_EXC_ERROR;
875: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: END IF;
878: END IF;
871: x_msg_data => x_msg_data,
872: x_return_status => x_return_status);
873: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
874: RAISE FND_API.G_EXC_ERROR;
875: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: END IF;
878: END IF;
879:
872: x_return_status => x_return_status);
873: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
874: RAISE FND_API.G_EXC_ERROR;
875: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: END IF;
878: END IF;
879:
880: dumpInput(p_x_ahl_mtltxn_tbl);
893:
894: IF (p_module_type = 'JSP')
895: THEN
896: -- Set all the Ids to null for which there is an LOV.
897: p_x_ahl_mtltxn_tbl(i).Inventory_Item_Id := FND_API.G_MISS_NUM;
898: p_x_ahl_mtltxn_tbl(i).Locator_Id := FND_API.G_MISS_NUM;
899: p_x_ahl_mtltxn_tbl(i).Reason_Id := FND_API.G_MISS_NUM;
900: p_x_ahl_mtltxn_tbl(i).Problem_Code := FND_API.G_MISS_CHAR;
901: --p_x_ahl_mtltxn_tbl(i).Uom := FND_API.G_MISS_CHAR;
894: IF (p_module_type = 'JSP')
895: THEN
896: -- Set all the Ids to null for which there is an LOV.
897: p_x_ahl_mtltxn_tbl(i).Inventory_Item_Id := FND_API.G_MISS_NUM;
898: p_x_ahl_mtltxn_tbl(i).Locator_Id := FND_API.G_MISS_NUM;
899: p_x_ahl_mtltxn_tbl(i).Reason_Id := FND_API.G_MISS_NUM;
900: p_x_ahl_mtltxn_tbl(i).Problem_Code := FND_API.G_MISS_CHAR;
901: --p_x_ahl_mtltxn_tbl(i).Uom := FND_API.G_MISS_CHAR;
902: END IF;
895: THEN
896: -- Set all the Ids to null for which there is an LOV.
897: p_x_ahl_mtltxn_tbl(i).Inventory_Item_Id := FND_API.G_MISS_NUM;
898: p_x_ahl_mtltxn_tbl(i).Locator_Id := FND_API.G_MISS_NUM;
899: p_x_ahl_mtltxn_tbl(i).Reason_Id := FND_API.G_MISS_NUM;
900: p_x_ahl_mtltxn_tbl(i).Problem_Code := FND_API.G_MISS_CHAR;
901: --p_x_ahl_mtltxn_tbl(i).Uom := FND_API.G_MISS_CHAR;
902: END IF;
903: /*Public api changes: Moved to Convert_Name_To_Id api
896: -- Set all the Ids to null for which there is an LOV.
897: p_x_ahl_mtltxn_tbl(i).Inventory_Item_Id := FND_API.G_MISS_NUM;
898: p_x_ahl_mtltxn_tbl(i).Locator_Id := FND_API.G_MISS_NUM;
899: p_x_ahl_mtltxn_tbl(i).Reason_Id := FND_API.G_MISS_NUM;
900: p_x_ahl_mtltxn_tbl(i).Problem_Code := FND_API.G_MISS_CHAR;
901: --p_x_ahl_mtltxn_tbl(i).Uom := FND_API.G_MISS_CHAR;
902: END IF;
903: /*Public api changes: Moved to Convert_Name_To_Id api
904: --Check the context fields
897: p_x_ahl_mtltxn_tbl(i).Inventory_Item_Id := FND_API.G_MISS_NUM;
898: p_x_ahl_mtltxn_tbl(i).Locator_Id := FND_API.G_MISS_NUM;
899: p_x_ahl_mtltxn_tbl(i).Reason_Id := FND_API.G_MISS_NUM;
900: p_x_ahl_mtltxn_tbl(i).Problem_Code := FND_API.G_MISS_CHAR;
901: --p_x_ahl_mtltxn_tbl(i).Uom := FND_API.G_MISS_CHAR;
902: END IF;
903: /*Public api changes: Moved to Convert_Name_To_Id api
904: --Check the context fields
905: IF ( (p_x_ahl_mtltxn_tbl(i).Workorder_Id IS NULL
902: END IF;
903: /*Public api changes: Moved to Convert_Name_To_Id api
904: --Check the context fields
905: IF ( (p_x_ahl_mtltxn_tbl(i).Workorder_Id IS NULL
906: OR p_x_ahl_mtltxn_tbl(i).Workorder_Id = FND_API.G_MISS_NUM)) THEN
907: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_WORKORDER_ID');
908: FND_MSG_PUB.ADD;
909: l_error := true;
910: ELSIF ( p_x_ahl_mtltxn_tbl(i).Operation_Seq_num IS NULL
907: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_WORKORDER_ID');
908: FND_MSG_PUB.ADD;
909: l_error := true;
910: ELSIF ( p_x_ahl_mtltxn_tbl(i).Operation_Seq_num IS NULL
911: OR p_x_ahl_mtltxn_tbl(i).Operation_Seq_num = FND_API.G_MISS_NUM) THEN
912: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_OPER_SEQ');
913: FND_MSG_PUB.ADD;
914: l_error := true;
915: ELSE
922: Convert_Name_To_Id(p_x_ahl_mtltxn_rec => p_x_ahl_mtltxn_tbl(i),
923: p_module_type => p_module_type ,
924: x_return_status => x_return_status );
925:
926: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
927: --l_error := true;
928: -- raise error if mandatory paramaters missing or WO-OP
929: -- validation fails.
930: RAISE FND_API.G_EXC_ERROR;
926: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
927: --l_error := true;
928: -- raise error if mandatory paramaters missing or WO-OP
929: -- validation fails.
930: RAISE FND_API.G_EXC_ERROR;
931:
932: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
934: END IF;
928: -- raise error if mandatory paramaters missing or WO-OP
929: -- validation fails.
930: RAISE FND_API.G_EXC_ERROR;
931:
932: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
934: END IF;
935:
936:
929: -- validation fails.
930: RAISE FND_API.G_EXC_ERROR;
931:
932: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
933: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
934: END IF;
935:
936:
937: IF G_DEBUG='Y' THEN
949: IF G_DEBUG='Y' THEN
950: AHL_DEBUG_PUB.debug('After calling Validate_Txn_rec');
951: END IF;
952:
953: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
954: l_error := true;
955:
956: IF G_DEBUG='Y' THEN
957: AHL_DEBUG_PUB.debug('Error in Validation');
955:
956: IF G_DEBUG='Y' THEN
957: AHL_DEBUG_PUB.debug('Error in Validation');
958: END IF;
959: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
961:
962: IF G_DEBUG='Y' THEN
963: AHL_DEBUG_PUB.debug('Unexpected error in Validate_Txn_rec');
956: IF G_DEBUG='Y' THEN
957: AHL_DEBUG_PUB.debug('Error in Validation');
958: END IF;
959: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
961:
962: IF G_DEBUG='Y' THEN
963: AHL_DEBUG_PUB.debug('Unexpected error in Validate_Txn_rec');
964: END IF;
970:
971: END LOOP;
972: -- End of Validation LOOP
973: IF (l_Error) THEN
974: RAISE FND_API.G_EXC_ERROR;
975: END IF;
976:
977: -- Inteface table insert.
978: l_txn_Header_Id := NULL;
986: -- is reserved against a different demand source)
987: Relieve_Serial_Reservation(p_ahl_mtl_txn_rec => p_x_ahl_mtltxn_tbl(i),
988: x_reservation_flag => l_reservation_flag,
989: x_return_status => x_return_status);
990: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
991: l_error := true;
992: RAISE FND_API.G_EXC_ERROR;
993: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
994: l_error := true;
988: x_reservation_flag => l_reservation_flag,
989: x_return_status => x_return_status);
990: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
991: l_error := true;
992: RAISE FND_API.G_EXC_ERROR;
993: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
994: l_error := true;
995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
996: END IF;
989: x_return_status => x_return_status);
990: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
991: l_error := true;
992: RAISE FND_API.G_EXC_ERROR;
993: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
994: l_error := true;
995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
996: END IF;
997:
991: l_error := true;
992: RAISE FND_API.G_EXC_ERROR;
993: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
994: l_error := true;
995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
996: END IF;
997:
998: END IF;
999:
1021: IF G_DEBUG='Y' THEN
1022: AHL_DEBUG_PUB.debug('after Sch_Mtl insert api');
1023: END IF;
1024:
1025: IF (x_return_status = FND_API.G_RET_STS_ERROR
1026: OR x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1027: CLOSE Sch_Mtl_Exists_Cur;
1028: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTLAPI_ERROR');
1029: FND_MESSAGE.Set_Token('MSG',x_msg_data);
1022: AHL_DEBUG_PUB.debug('after Sch_Mtl insert api');
1023: END IF;
1024:
1025: IF (x_return_status = FND_API.G_RET_STS_ERROR
1026: OR x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1027: CLOSE Sch_Mtl_Exists_Cur;
1028: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTLAPI_ERROR');
1029: FND_MESSAGE.Set_Token('MSG',x_msg_data);
1030: FND_MSG_PUB.ADD;
1027: CLOSE Sch_Mtl_Exists_Cur;
1028: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTLAPI_ERROR');
1029: FND_MESSAGE.Set_Token('MSG',x_msg_data);
1030: FND_MSG_PUB.ADD;
1031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1032: END IF;
1033: --END IF; -- fix for bug# 5499575
1034:
1035: END IF;
1057: AHL_DEBUG_PUB.debug('Ahl_mtltxn_id'||p_x_ahl_mtltxn_tbl(i).ahl_mtltxn_id);
1058: END IF;
1059:
1060:
1061: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1062: l_error := true;
1063: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1064: l_error := true;
1065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1059:
1060:
1061: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1062: l_error := true;
1063: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1064: l_error := true;
1065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1066: END IF;
1067:
1061: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1062: l_error := true;
1063: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1064: l_error := true;
1065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1066: END IF;
1067:
1068: END LOOP; -- End of loop for Interface table inserts
1069:
1067:
1068: END LOOP; -- End of loop for Interface table inserts
1069:
1070: IF(l_error ) THEN
1071: RAISE FND_API.G_EXC_ERROR;
1072: END IF;
1073: -- Now process the interface records
1074: IF G_DEBUG='Y' THEN
1075: AHL_DEBUG_PUB.debug('Before calling wip_mtlInterfaceProc_pub.processInterface....');
1082:
1083: --Adithya added the following code to fix bugs 5611465 and 6962468
1084: mo_global.init('AHL');
1085:
1086: IF(x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1087: IF G_DEBUG='Y' THEN
1088: AHL_DEBUG_PUB.debug('wip_mtlInterfaceProc_pub.processInterface....errored');
1089: AHL_DEBUG_PUB.debug('count of error msgs: ' || FND_MSG_PUB.COUNT_MSG);
1090: END IF;
1087: IF G_DEBUG='Y' THEN
1088: AHL_DEBUG_PUB.debug('wip_mtlInterfaceProc_pub.processInterface....errored');
1089: AHL_DEBUG_PUB.debug('count of error msgs: ' || FND_MSG_PUB.COUNT_MSG);
1090: END IF;
1091: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1092: END IF;
1093:
1094: END IF;
1095:
1121: CLOSE Txn_Error_cur;
1122: END LOOP;
1123:
1124: IF(l_error ) THEN
1125: RAISE FND_API.G_EXC_ERROR;
1126: END IF;
1127:
1128: -- No errors returned by WIP API.Initialize message list to
1129: -- remove 'Txn success' message.
1126: END IF;
1127:
1128: -- No errors returned by WIP API.Initialize message list to
1129: -- remove 'Txn success' message.
1130: IF FND_API.To_Boolean(p_init_msg_list) THEN
1131: FND_MSG_PUB.Initialize;
1132: END IF;
1133:
1134: FOR i IN l_txn_Id_Tbl.FIRST..l_txn_Id_Tbl.LAST LOOP
1162: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UOMCONVERT_ERROR');
1163: FND_MESSAGE.Set_Token('UOM_FROM', p_x_ahl_mtltxn_tbl(i).uom);
1164: FND_MESSAGE.Set_Token('UOM_TO', l_uom_code);
1165: FND_MSG_PUB.ADD;
1166: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1167: END IF;
1168: END IF;
1169: -- Tamal: Bug #4095376: End
1170:
1177: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTL_NOTFOUND');
1178: FND_MESSAGE.Set_Token('WO_OP',p_x_ahl_mtltxn_tbl(i).Workorder_operation_Id);
1179: FND_MESSAGE.Set_Token('INV_ITEM',p_x_ahl_mtltxn_tbl(i).Inventory_Item_Id);
1180: FND_MSG_PUB.ADD;
1181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1182: ELSE
1183:
1184: IF G_DEBUG='Y' THEN
1185: AHL_DEBUG_PUB.debug('l_completed_quantity=['||l_completed_quantity||']');
1215: -- l_nonrtn_wo_id := l_x_sr_rec_tbl(i).Nonroutine_wo_id;
1216: --END IF;
1217:
1218: --Insert a record into the AHL_WORKORDER_MTL_TXNS.
1219: IF(p_x_ahl_mtltxn_tbl(i).Qa_Collection_Id = FND_API.G_MISS_NUM OR
1220: p_x_ahl_mtltxn_tbl(i).disposition_id is NOT NULL) THEN
1221: p_x_ahl_mtltxn_tbl(i).Qa_Collection_Id := NULL;
1222: END IF;
1223: IF(l_nonrtn_wo_id = FND_API.G_MISS_NUM) THEN
1219: IF(p_x_ahl_mtltxn_tbl(i).Qa_Collection_Id = FND_API.G_MISS_NUM OR
1220: p_x_ahl_mtltxn_tbl(i).disposition_id is NOT NULL) THEN
1221: p_x_ahl_mtltxn_tbl(i).Qa_Collection_Id := NULL;
1222: END IF;
1223: IF(l_nonrtn_wo_id = FND_API.G_MISS_NUM) THEN
1224: l_nonrtn_wo_id := NULL;
1225: END IF;
1226:
1227: IF(p_x_ahl_mtltxn_tbl(i).Locator_Id = FND_API.G_MISS_NUM) THEN
1223: IF(l_nonrtn_wo_id = FND_API.G_MISS_NUM) THEN
1224: l_nonrtn_wo_id := NULL;
1225: END IF;
1226:
1227: IF(p_x_ahl_mtltxn_tbl(i).Locator_Id = FND_API.G_MISS_NUM) THEN
1228: p_x_ahl_mtltxn_tbl(i).Locator_Id := NULL;
1229: END IF;
1230:
1231: -- In case of dynamic locator creation, retrieve locator ID to populate ahl_workorder_mtl_txns table.
1251: END IF;
1252:
1253: END IF;
1254:
1255: IF(p_x_ahl_mtltxn_tbl(i).condition = FND_API.G_MISS_NUM) THEN
1256: p_x_ahl_mtltxn_tbl(i).condition := NULL;
1257: END IF;
1258: IF G_DEBUG='Y' THEN
1259: AHL_DEBUG_PUB.debug('RECEPIENT_ID'||p_x_ahl_mtltxn_tbl(i).RECEPIENT_ID);
1275: AHL_DEBUG_PUB.debug('after mtl_Txn insert api call msg=['||x_msg_data||']');
1276: END IF;
1277:
1278:
1279: IF (x_return_status = FND_API.G_RET_STS_ERROR
1280: OR x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1281: FND_MESSAGE.Set_Name('AHL','AHL_PRD_AHLMTLTXN_ERROR');
1282: FND_MESSAGE.Set_Token('MSG',x_msg_data);
1283: FND_MSG_PUB.ADD;
1276: END IF;
1277:
1278:
1279: IF (x_return_status = FND_API.G_RET_STS_ERROR
1280: OR x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1281: FND_MESSAGE.Set_Name('AHL','AHL_PRD_AHLMTLTXN_ERROR');
1282: FND_MESSAGE.Set_Token('MSG',x_msg_data);
1283: FND_MSG_PUB.ADD;
1284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1280: OR x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1281: FND_MESSAGE.Set_Name('AHL','AHL_PRD_AHLMTLTXN_ERROR');
1282: FND_MESSAGE.Set_Token('MSG',x_msg_data);
1283: FND_MSG_PUB.ADD;
1284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1285: END IF;
1286:
1287: p_x_ahl_mtltxn_tbl(i).ahl_mtltxn_id := l_x_Mtl_Txn_Id;
1288:
1301: AHL_DEBUG_PUB.debug('after PartsChange Update api');
1302: AHL_DEBUG_PUB.debug('after PartsChange Update api call ret status=['||x_return_status||']');
1303: END IF;
1304:
1305: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1306: RAISE FND_API.G_EXC_ERROR;
1307: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1309: END IF;
1302: AHL_DEBUG_PUB.debug('after PartsChange Update api call ret status=['||x_return_status||']');
1303: END IF;
1304:
1305: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1306: RAISE FND_API.G_EXC_ERROR;
1307: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1309: END IF;
1310:
1303: END IF;
1304:
1305: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1306: RAISE FND_API.G_EXC_ERROR;
1307: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1309: END IF;
1310:
1311: END IF;
1304:
1305: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1306: RAISE FND_API.G_EXC_ERROR;
1307: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1309: END IF;
1310:
1311: END IF;
1312:
1371:
1372: IF(l_x_sr_rec_tbl.COUNT > 0) THEN
1373: AHL_PRD_NONROUTINE_PVT.PROCESS_NONROUTINE_JOB (
1374: p_api_version => 1.0,
1375: p_commit => Fnd_Api.g_false,
1376: p_module_type => NULL,
1377: x_return_status =>x_return_status,
1378: x_msg_count =>x_msg_count,
1379: x_msg_data =>x_msg_data,
1385: AHL_DEBUG_PUB.debug('after the srvc req api call x_msg_count=['||x_msg_count||']');
1386: AHL_DEBUG_PUB.debug('after the srvc req api call msg=['||x_msg_data||']');
1387: END IF;
1388:
1389: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1390: RAISE FND_API.G_EXC_ERROR;
1391: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1393: END IF;
1386: AHL_DEBUG_PUB.debug('after the srvc req api call msg=['||x_msg_data||']');
1387: END IF;
1388:
1389: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1390: RAISE FND_API.G_EXC_ERROR;
1391: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1393: END IF;
1394:
1387: END IF;
1388:
1389: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1390: RAISE FND_API.G_EXC_ERROR;
1391: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1393: END IF;
1394:
1395: -- ANd now update the nonroutine workorder id in the workorder_mtl_Txns table
1388:
1389: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1390: RAISE FND_API.G_EXC_ERROR;
1391: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1393: END IF;
1394:
1395: -- ANd now update the nonroutine workorder id in the workorder_mtl_Txns table
1396: FOR j IN l_x_sr_rec_tbl.FIRST..l_x_sr_rec_tbl.LAST LOOP
1417: FOR i IN p_x_ahl_mtltxn_tbl.FIRST..p_x_ahl_mtltxn_tbl.LAST LOOP
1418: IF (p_x_ahl_mtltxn_tbl(i).Transaction_Type_Id = WIP_CONSTANTS.RETCOMP_TYPE AND
1419: p_x_ahl_mtltxn_tbl(i).Condition = G_AHL_MRB_CONDITION AND
1420: p_x_ahl_mtltxn_tbl(i).disposition_id IS NULL AND
1421: p_x_ahl_mtltxn_tbl(i).Qa_Collection_Id IS NOT NULL AND FND_API.to_boolean( p_commit )) THEN
1422: QA_SS_RESULTS.wrapper_fire_action
1423: (
1424: q_collection_id => p_x_ahl_mtltxn_tbl(i).Qa_Collection_Id,
1425: q_return_status => x_return_status,
1426: q_msg_count => x_msg_count,
1427: q_msg_data => x_msg_data
1428: );
1429:
1430: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1431: IF ( x_msg_data IS NULL ) THEN
1432: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_UNEXP_ERROR' );
1433: FND_MSG_PUB.add;
1434: RAISE FND_API.G_EXC_ERROR;
1430: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1431: IF ( x_msg_data IS NULL ) THEN
1432: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_UNEXP_ERROR' );
1433: FND_MSG_PUB.add;
1434: RAISE FND_API.G_EXC_ERROR;
1435: END IF;
1436: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1438: END IF;
1432: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_UNEXP_ERROR' );
1433: FND_MSG_PUB.add;
1434: RAISE FND_API.G_EXC_ERROR;
1435: END IF;
1436: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1438: END IF;
1439: END IF;
1440: END LOOP;
1433: FND_MSG_PUB.add;
1434: RAISE FND_API.G_EXC_ERROR;
1435: END IF;
1436: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1438: END IF;
1439: END IF;
1440: END LOOP;
1441: END IF;
1440: END LOOP;
1441: END IF;
1442:
1443: -- Standard check of p_commit
1444: IF FND_API.To_Boolean(p_commit) THEN
1445: COMMIT WORK;
1446: END IF;
1447: x_return_status := FND_API.G_RET_STS_SUCCESS;
1448: dumpInput(p_x_ahl_mtltxn_tbl);
1443: -- Standard check of p_commit
1444: IF FND_API.To_Boolean(p_commit) THEN
1445: COMMIT WORK;
1446: END IF;
1447: x_return_status := FND_API.G_RET_STS_SUCCESS;
1448: dumpInput(p_x_ahl_mtltxn_tbl);
1449:
1450: -- call user hook api.
1451: -- User Hooks
1453: Perform_MtlTxn_Post( p_ahl_mtltxn_tbl => p_x_ahl_mtltxn_tbl,
1454: x_msg_count => x_msg_count,
1455: x_msg_data => x_msg_data,
1456: x_return_status => x_return_status);
1457: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1458: RAISE FND_API.G_EXC_ERROR;
1459: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: END IF;
1454: x_msg_count => x_msg_count,
1455: x_msg_data => x_msg_data,
1456: x_return_status => x_return_status);
1457: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1458: RAISE FND_API.G_EXC_ERROR;
1459: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: END IF;
1462: END IF;
1455: x_msg_data => x_msg_data,
1456: x_return_status => x_return_status);
1457: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1458: RAISE FND_API.G_EXC_ERROR;
1459: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: END IF;
1462: END IF;
1463:
1456: x_return_status => x_return_status);
1457: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1458: RAISE FND_API.G_EXC_ERROR;
1459: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1461: END IF;
1462: END IF;
1463:
1464: -- Standard call to get message count and if count is 1, get message
1464: -- Standard call to get message count and if count is 1, get message
1465: FND_MSG_PUB.Count_And_Get
1466: ( p_count => x_msg_count,
1467: p_data => x_msg_data,
1468: p_encoded => fnd_api.g_false);
1469:
1470: --
1471: EXCEPTION
1472: WHEN FND_API.G_EXC_ERROR THEN
1468: p_encoded => fnd_api.g_false);
1469:
1470: --
1471: EXCEPTION
1472: WHEN FND_API.G_EXC_ERROR THEN
1473: x_return_status := FND_API.G_RET_STS_ERROR;
1474: --SHOW_MTX_ERRORS;
1475: Rollback to PERFORM_MTL_TXN_PVT;
1476: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1469:
1470: --
1471: EXCEPTION
1472: WHEN FND_API.G_EXC_ERROR THEN
1473: x_return_status := FND_API.G_RET_STS_ERROR;
1474: --SHOW_MTX_ERRORS;
1475: Rollback to PERFORM_MTL_TXN_PVT;
1476: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1477: p_data => x_msg_data,
1474: --SHOW_MTX_ERRORS;
1475: Rollback to PERFORM_MTL_TXN_PVT;
1476: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1477: p_data => x_msg_data,
1478: p_encoded => fnd_api.g_false);
1479:
1480:
1481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1482: --SHOW_MTX_ERRORS;
1477: p_data => x_msg_data,
1478: p_encoded => fnd_api.g_false);
1479:
1480:
1481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1482: --SHOW_MTX_ERRORS;
1483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1484: Rollback to PERFORM_MTL_TXN_PVT;
1485: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1479:
1480:
1481: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1482: --SHOW_MTX_ERRORS;
1483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1484: Rollback to PERFORM_MTL_TXN_PVT;
1485: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1486: p_data => x_msg_data,
1487: p_encoded => fnd_api.g_false);
1483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1484: Rollback to PERFORM_MTL_TXN_PVT;
1485: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1486: p_data => x_msg_data,
1487: p_encoded => fnd_api.g_false);
1488:
1489: WHEN OTHERS THEN
1490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1491: --SHOW_MTX_ERRORS;
1486: p_data => x_msg_data,
1487: p_encoded => fnd_api.g_false);
1488:
1489: WHEN OTHERS THEN
1490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1491: --SHOW_MTX_ERRORS;
1492: Rollback to PERFORM_MTL_TXN_PVT;
1493: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1494: p_procedure_name => 'Perform_Mtl_txn',
1494: p_procedure_name => 'Perform_Mtl_txn',
1495: p_error_text => SQLERRM);
1496: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1497: p_data => x_msg_data,
1498: p_encoded => fnd_api.g_false);
1499:
1500: END PERFORM_MTL_TXN;
1501:
1502: /**********************************************************
1577: /*
1578:
1579: EXCEPTION
1580: WHEN OTHERS THEN
1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1582: IF G_DEBUG='Y'
1583: THEN
1584: AHL_DEBUG_PUB.debug('Exception inserting into mtl_txn' || SQLCODE);
1585: AHL_DEBUG_PUB.debug('SQLERRM:' || SQLERRM);
1930:
1931:
1932: BEGIN
1933:
1934: x_return_status := FND_API.G_RET_STS_SUCCESS;
1935:
1936: IF G_DEBUG='Y' THEN
1937: AHL_DEBUG_PUB.enable_debug;
1938: AHL_DEBUG_PUB.debug('Ahl Validating TxnType...['||to_Char(p_x_ahl_mtltxn_rec.Transaction_Type_Id)||']');
1942: IF(p_x_ahl_mtltxn_rec.Transaction_Type_Id <> WIP_CONSTANTS.RETCOMP_TYPE AND
1943: p_x_ahl_mtltxn_rec.Transaction_Type_Id <> WIP_CONSTANTS.ISSCOMP_TYPE ) THEN
1944: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_TXNTYPE');
1945: FND_MSG_PUB.ADD;
1946: x_return_status := FND_API.G_RET_STS_ERROR;
1947: END IF;
1948: -- transaction quantity should be +ve always. Negative quantities are not
1949: -- supported currently.
1950: IF G_DEBUG='Y' THEN
1954: IF(nvl(p_x_ahl_mtltxn_rec.Quantity,0) <= 0) THEN
1955: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_QTY');
1956: FND_MESSAGE.Set_Token('QUANTITY',p_x_ahl_mtltxn_rec.Quantity);
1957: FND_MSG_PUB.ADD;
1958: x_return_status := FND_API.G_RET_STS_ERROR;
1959: END IF;
1960:
1961: IF G_DEBUG='Y' THEN
1962: AHL_DEBUG_PUB.debug('Validating Wip_Entity_id['
1975: IF G_DEBUG='Y' THEN
1976: AHL_DEBUG_PUB.debug('JOB validation failed');
1977: END IF;
1978: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WIP_ENTITY');
1979: if(p_x_ahl_mtltxn_rec.Wip_Entity_Id = FND_API.G_MISS_NUM) THEN
1980: p_x_ahl_mtltxn_rec.Wip_Entity_Id := NULL;
1981: END IF;
1982: FND_MESSAGE.Set_Token('WIP_ENTITY',p_x_ahl_mtltxn_rec.Wip_Entity_Id);
1983: FND_MSG_PUB.ADD;
1980: p_x_ahl_mtltxn_rec.Wip_Entity_Id := NULL;
1981: END IF;
1982: FND_MESSAGE.Set_Token('WIP_ENTITY',p_x_ahl_mtltxn_rec.Wip_Entity_Id);
1983: FND_MSG_PUB.ADD;
1984: x_return_status := FND_API.G_RET_STS_ERROR;
1985: CLOSE AHL_WIPJOB_CUR;
1986: RETURN;
1987: ELSE
1988: -- Assign visit ID to mtl_txn_rec.
1987: ELSE
1988: -- Assign visit ID to mtl_txn_rec.
1989: -- Added post 11.5.10.
1990: IF (p_x_ahl_mtltxn_rec.target_visit_id IS NULL OR
1991: p_x_ahl_mtltxn_rec.target_visit_id = FND_API.G_MISS_NUM) THEN
1992: p_x_ahl_mtltxn_rec.target_visit_id := l_visit_id;
1993: END IF;
1994: --
1995:
2002: AND l_job_status <> C_JOB_PARTS_HOLD) THEN
2003: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_JOB_STATUS');
2004: FND_MESSAGE.Set_Token('STATUS',l_job_status);
2005: FND_MSG_PUB.ADD;
2006: x_return_status := FND_API.G_RET_STS_ERROR;
2007: END IF;
2008: END IF;
2009: CLOSE AHL_WIPJOB_CUR;
2010:
2024: FND_MESSAGE.Set_Token('WO',p_x_ahl_mtltxn_rec.Workorder_Id);
2025: FND_MESSAGE.Set_Token('SEQ',p_x_ahl_mtltxn_rec.Operation_Seq_Num);
2026: FND_MESSAGE.Set_Token('OP',p_x_ahl_mtltxn_rec.Workorder_Operation_Id);
2027: FND_MSG_PUB.ADD;
2028: x_return_status := FND_API.G_RET_STS_ERROR;
2029: END IF;
2030: CLOSE AHL_WORKORDER_OPER_CUR;
2031:
2032: IF G_DEBUG='Y' THEN
2073: x_eam_item_type_id, l_primary_uom_code,
2074: l_concatenated_segments;
2075: IF(AHL_ITEM_ID_CUR%NOTFOUND) THEN
2076: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_ITEM');
2077: if(p_x_ahl_mtltxn_rec.Inventory_Item_Id = FND_API.G_MISS_NUM) THEN
2078: p_x_ahl_mtltxn_rec.Inventory_Item_Id := NULL;
2079: END IF;
2080: FND_MESSAGE.Set_Token('FIELD',p_x_ahl_mtltxn_rec.Inventory_Item_Id);
2081: FND_MSG_PUB.ADD;
2078: p_x_ahl_mtltxn_rec.Inventory_Item_Id := NULL;
2079: END IF;
2080: FND_MESSAGE.Set_Token('FIELD',p_x_ahl_mtltxn_rec.Inventory_Item_Id);
2081: FND_MSG_PUB.ADD;
2082: x_return_status := FND_API.G_RET_STS_ERROR;
2083: CLOSE AHL_ITEM_ID_CUR;
2084: -- Skip the rest of the validations.
2085: RETURN;
2086: END IF;
2104: IF (l_project_locator_id IS NULL) THEN
2105: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOCATOR');
2106: FND_MESSAGE.Set_Token('LOC',l_inv_locator_id);
2107: FND_MSG_PUB.ADD;
2108: RAISE FND_API.G_EXC_ERROR;
2109: ELSE
2110: p_x_ahl_mtltxn_rec.locator_id := l_project_locator_id;
2111: p_x_ahl_mtltxn_rec.subinventory_name := l_subinventory_code;
2112: END IF;
2128: OPEN wip_params_cur(p_x_ahl_mtltxn_rec.Organization_ID);
2129: FETCH wip_params_cur INTO l_def_supply_subinv, l_def_supply_locator_id;
2130: IF (wip_params_cur%FOUND) THEN
2131: IF ((p_x_ahl_mtltxn_rec.Subinventory_Name IS NULL OR
2132: p_x_ahl_mtltxn_rec.Subinventory_Name = FND_API.G_MISS_CHAR) AND
2133: l_def_supply_subinv IS NOT NULL) THEN
2134: p_x_ahl_mtltxn_rec.Subinventory_Name := l_def_supply_subinv;
2135: END IF;
2136:
2137: -- Locator.
2138: -- Added check for ER 5854712 - support dynamic locator creation.
2139: -- default only when both locator ID and Segments are null.
2140: IF ((p_x_ahl_mtltxn_rec.Locator_id IS NULL OR
2141: p_x_ahl_mtltxn_rec.Locator_id = FND_API.G_MISS_NUM) AND
2142: (p_x_ahl_mtltxn_rec.Locator_Segments IS NULL OR
2143: p_x_ahl_mtltxn_rec.Locator_Segments = FND_API.G_MISS_CHAR) AND
2144: l_def_supply_locator_id IS NOT NULL) THEN
2145: p_x_ahl_mtltxn_rec.Locator_id := l_def_supply_locator_id;
2139: -- default only when both locator ID and Segments are null.
2140: IF ((p_x_ahl_mtltxn_rec.Locator_id IS NULL OR
2141: p_x_ahl_mtltxn_rec.Locator_id = FND_API.G_MISS_NUM) AND
2142: (p_x_ahl_mtltxn_rec.Locator_Segments IS NULL OR
2143: p_x_ahl_mtltxn_rec.Locator_Segments = FND_API.G_MISS_CHAR) AND
2144: l_def_supply_locator_id IS NOT NULL) THEN
2145: p_x_ahl_mtltxn_rec.Locator_id := l_def_supply_locator_id;
2146: END IF;
2147:
2154: END IF;
2155:
2156: -- If the item is of serial controlled check if the serial numebr is null
2157: IF((p_x_ahl_mtltxn_rec.Serial_Number IS NULL
2158: OR p_x_ahl_mtltxn_rec.Serial_Number = FND_API.G_MISS_CHAR)
2159: AND (nvl(l_serial_Control,0) <> nvl(C_NO_SERIAL_CONTROL,0)) ) THEN
2160: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SRLNUM');
2161: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
2162: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2160: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SRLNUM');
2161: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
2162: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2163: FND_MSG_PUB.ADD;
2164: x_return_status := FND_API.G_RET_STS_ERROR;
2165: END IF;
2166:
2167: IF (p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL AND
2168: p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR AND
2164: x_return_status := FND_API.G_RET_STS_ERROR;
2165: END IF;
2166:
2167: IF (p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL AND
2168: p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR AND
2169: nvl(l_serial_Control,1) = 1) THEN
2170: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SRLNUM_NOTMAND');
2171: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
2172: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2170: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SRLNUM_NOTMAND');
2171: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
2172: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2173: FND_MSG_PUB.ADD;
2174: x_return_status := FND_API.G_RET_STS_ERROR;
2175: END IF;
2176:
2177: -- Added for FP bug# 5903318.
2178: IF G_DEBUG='Y' THEN
2181:
2182: -- Validate Create WO Option lookup code.
2183: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.RETCOMP_TYPE) THEN
2184: IF (p_x_ahl_mtltxn_rec.create_wo_option IS NULL OR
2185: p_x_ahl_mtltxn_rec.create_wo_option = FND_API.G_MISS_CHAR) THEN
2186: IF (nvl(l_serial_Control,0) = C_NO_SERIAL_CONTROL) THEN
2187: p_x_ahl_mtltxn_rec.create_wo_option := 'CREATE_SR_NO';
2188: ELSE
2189: -- serialized.
2197: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_LOOKUP');
2198: FND_MESSAGE.Set_Token('LCODE',p_x_ahl_mtltxn_rec.create_wo_option);
2199: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2200: FND_MSG_PUB.ADD;
2201: x_return_status := FND_API.G_RET_STS_ERROR;
2202: END IF;
2203: CLOSE create_wo_cur;
2204: END IF;
2205:
2214: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NONSRL_WO_OPT');
2215: FND_MESSAGE.Set_Token('WO_OPT',l_fnd_meaning);
2216: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2217: FND_MSG_PUB.ADD;
2218: x_return_status := FND_API.G_RET_STS_ERROR;
2219: END IF;
2220: END IF;
2221: END IF;
2222: -- End changes for FP bug# 5903318.
2226: END IF;
2227:
2228: -- If the item is of lot controlled check if the lot number is null
2229: IF((p_x_ahl_mtltxn_rec.Lot_Number IS NULL
2230: OR p_x_ahl_mtltxn_rec.Lot_Number = FND_API.G_MISS_CHAR)
2231: AND (l_lot_Control <> C_NO_LOT_CONTROL) ) THEN
2232: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOT');
2233: FND_MESSAGE.Set_Token('LOT',p_x_ahl_mtltxn_rec.Lot_Number);
2234: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2232: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOT');
2233: FND_MESSAGE.Set_Token('LOT',p_x_ahl_mtltxn_rec.Lot_Number);
2234: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2235: FND_MSG_PUB.ADD;
2236: x_return_status := FND_API.G_RET_STS_ERROR;
2237: END IF;
2238: -- validate lot number.
2239: IF ((p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL AND
2240: p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR)
2236: x_return_status := FND_API.G_RET_STS_ERROR;
2237: END IF;
2238: -- validate lot number.
2239: IF ((p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL AND
2240: p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR)
2241: AND (l_lot_Control <> C_NO_LOT_CONTROL) ) THEN
2242: OPEN mtl_lot_num_csr(p_x_ahl_mtltxn_rec.organization_id,
2243: p_x_ahl_mtltxn_rec.inventory_item_id,
2244: p_x_ahl_mtltxn_rec.Lot_Number);
2247: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOT');
2248: FND_MESSAGE.Set_Token('LOT',p_x_ahl_mtltxn_rec.Lot_Number);
2249: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2250: FND_MSG_PUB.ADD;
2251: x_return_status := FND_API.G_RET_STS_ERROR;
2252: END IF;
2253: CLOSE mtl_lot_num_csr;
2254: END IF;
2255:
2254: END IF;
2255:
2256: -- raise error if item is not lot controlled.
2257: IF ((p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL AND
2258: p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR)
2259: AND (l_lot_Control = C_NO_LOT_CONTROL) ) THEN
2260: FND_MESSAGE.Set_Name('AHL','AHL_PRD_LOT_NOTNULL');
2261: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2262: FND_MSG_PUB.ADD;
2259: AND (l_lot_Control = C_NO_LOT_CONTROL) ) THEN
2260: FND_MESSAGE.Set_Name('AHL','AHL_PRD_LOT_NOTNULL');
2261: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2262: FND_MSG_PUB.ADD;
2263: x_return_status := FND_API.G_RET_STS_ERROR;
2264: END IF;
2265:
2266: -- If the locator controlled is true at the item level or sub inventory level
2267: -- check if the locator id is given or not.
2273:
2274: END IF;
2275:
2276: IF(p_x_ahl_mtltxn_rec.Locator_Id IS NULL
2277: OR p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
2278: IF (l_location_Control <> C_NO_LOCATOR_CONTROL) THEN
2279: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOCATOR');
2280: if(p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
2281: p_x_ahl_mtltxn_rec.Locator_Id := NULL;
2276: IF(p_x_ahl_mtltxn_rec.Locator_Id IS NULL
2277: OR p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
2278: IF (l_location_Control <> C_NO_LOCATOR_CONTROL) THEN
2279: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOCATOR');
2280: if(p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
2281: p_x_ahl_mtltxn_rec.Locator_Id := NULL;
2282: END IF;
2283: FND_MESSAGE.Set_Token('LOC',p_x_ahl_mtltxn_rec.Locator_Id);
2284: FND_MSG_PUB.ADD;
2281: p_x_ahl_mtltxn_rec.Locator_Id := NULL;
2282: END IF;
2283: FND_MESSAGE.Set_Token('LOC',p_x_ahl_mtltxn_rec.Locator_Id);
2284: FND_MSG_PUB.ADD;
2285: x_return_status := FND_API.G_RET_STS_ERROR;
2286: END IF;
2287: ELSE
2288: ****************************************************************/
2289: IF (p_x_ahl_mtltxn_rec.Locator_Id IS NOT NULL AND
2286: END IF;
2287: ELSE
2288: ****************************************************************/
2289: IF (p_x_ahl_mtltxn_rec.Locator_Id IS NOT NULL AND
2290: p_x_ahl_mtltxn_rec.Locator_Id <> FND_API.G_MISS_NUM) THEN
2291: OPEN AHL_LOCATOR_CUR(p_x_ahl_mtltxn_rec.Organization_ID,
2292: p_x_ahl_mtltxn_rec.Locator_Id,
2293: p_x_ahl_mtltxn_rec.Subinventory_Name);
2294: FETCH AHL_LOCATOR_CUR INTO l_Count;
2293: p_x_ahl_mtltxn_rec.Subinventory_Name);
2294: FETCH AHL_LOCATOR_CUR INTO l_Count;
2295: IF(AHL_LOCATOR_CUR%NOTFOUND) THEN
2296: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOCATOR');
2297: if(p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
2298: p_x_ahl_mtltxn_rec.Locator_Id := NULL;
2299: END IF;
2300: FND_MESSAGE.Set_Token('LOC',p_x_ahl_mtltxn_rec.Locator_Id);
2301: FND_MSG_PUB.ADD;
2298: p_x_ahl_mtltxn_rec.Locator_Id := NULL;
2299: END IF;
2300: FND_MESSAGE.Set_Token('LOC',p_x_ahl_mtltxn_rec.Locator_Id);
2301: FND_MSG_PUB.ADD;
2302: x_return_status := FND_API.G_RET_STS_ERROR;
2303: END IF;
2304: CLOSE AHL_LOCATOR_CUR;
2305: END IF;
2306:
2312: -- If item is revision-controlled, then verify revision is NOT NULL and is valid
2313: -- If item is not revision-controlled, then verify revision is NULL
2314: IF (nvl(l_revision_control, -1) = 2)
2315: THEN
2316: IF (p_x_ahl_mtltxn_rec.Revision IS NULL OR p_x_ahl_mtltxn_rec.Revision = FND_API.G_MISS_CHAR)
2317: THEN
2318: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_REVISION');
2319: FND_MESSAGE.Set_Token('REVISION',p_x_ahl_mtltxn_rec.Revision);
2320: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2318: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_REVISION');
2319: FND_MESSAGE.Set_Token('REVISION',p_x_ahl_mtltxn_rec.Revision);
2320: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2321: FND_MSG_PUB.ADD;
2322: x_return_status := FND_API.G_RET_STS_ERROR;
2323: ELSE
2324: OPEN AHL_REVISION_CUR
2325: (
2326: p_x_ahl_mtltxn_rec.Organization_ID,
2333: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_REVISION');
2334: FND_MESSAGE.Set_Token('REVISION',p_x_ahl_mtltxn_rec.Revision);
2335: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2336: FND_MSG_PUB.ADD;
2337: x_return_status := FND_API.G_RET_STS_ERROR;
2338: END IF;
2339: CLOSE AHL_REVISION_CUR;
2340: END IF;
2341: ELSE
2338: END IF;
2339: CLOSE AHL_REVISION_CUR;
2340: END IF;
2341: ELSE
2342: IF (p_x_ahl_mtltxn_rec.Revision IS NOT NULL AND p_x_ahl_mtltxn_rec.Revision <> FND_API.G_MISS_CHAR)
2343: THEN
2344: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REVNUM_NOTMAND');
2345: FND_MESSAGE.Set_Token('REV',p_x_ahl_mtltxn_rec.Revision);
2346: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2344: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REVNUM_NOTMAND');
2345: FND_MESSAGE.Set_Token('REV',p_x_ahl_mtltxn_rec.Revision);
2346: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2347: FND_MSG_PUB.ADD;
2348: x_return_status := FND_API.G_RET_STS_ERROR;
2349: END IF;
2350: END IF;
2351: -- Tamal: Bug #4091154: End
2352:
2351: -- Tamal: Bug #4091154: End
2352:
2353: --Reason should be valid
2354: IF(p_x_ahl_mtltxn_rec.Reason_Id IS NOT NULL AND
2355: p_x_ahl_mtltxn_rec.Reason_Id <> FND_API.G_MISS_NUM) THEN
2356: OPEN AHL_REASON_CUR(p_x_ahl_mtltxn_rec.Reason_Id);
2357: FETCH AHL_REASON_CUR INTO l_Count;
2358: IF(AHL_REASON_CUR%NOTFOUND) THEN
2359: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVLD_REASON');
2358: IF(AHL_REASON_CUR%NOTFOUND) THEN
2359: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVLD_REASON');
2360: FND_MESSAGE.Set_Token('REASON',p_x_ahl_mtltxn_rec.Revision);
2361: FND_MSG_PUB.ADD;
2362: x_return_status := FND_API.G_RET_STS_ERROR;
2363: END IF;
2364: CLOSE AHL_REASON_CUR;
2365: END IF;
2366:
2369: OPEN Condition_Cur(p_x_ahl_mtltxn_rec.Condition);
2370: FETCH Condition_Cur INTO l_Count;
2371: IF(Condition_Cur%NOTFOUND) THEN
2372: FND_MESSAGE.Set_Name('AHL','AHL_PRD_COND_INVALID');
2373: if(p_x_ahl_mtltxn_rec.Condition = FND_API.G_MISS_NUM) THEN
2374: p_x_ahl_mtltxn_rec.Condition := NULL;
2375: END IF;
2376: FND_MESSAGE.Set_Token('CODE',p_x_ahl_mtltxn_rec.Condition);
2377: FND_MSG_PUB.ADD;
2374: p_x_ahl_mtltxn_rec.Condition := NULL;
2375: END IF;
2376: FND_MESSAGE.Set_Token('CODE',p_x_ahl_mtltxn_rec.Condition);
2377: FND_MSG_PUB.ADD;
2378: x_return_status := FND_API.G_RET_STS_ERROR;
2379: END IF;
2380: CLOSE Condition_Cur;
2381:
2382: IF G_DEBUG='Y' THEN
2388: AHL_PRD_UTIL_PKG.Validate_Material_Status(p_x_ahl_mtltxn_rec.Organization_Id,
2389: p_x_ahl_mtltxn_rec.Subinventory_Name,
2390: p_x_ahl_mtltxn_rec.Condition,
2391: l_return_Status);
2392: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2393: x_return_status := FND_API.G_RET_STS_ERROR;
2394: END IF;
2395:
2396: ELSE
2389: p_x_ahl_mtltxn_rec.Subinventory_Name,
2390: p_x_ahl_mtltxn_rec.Condition,
2391: l_return_Status);
2392: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2393: x_return_status := FND_API.G_RET_STS_ERROR;
2394: END IF;
2395:
2396: ELSE
2397: IF G_DEBUG='Y' THEN
2406: IF G_DEBUG='Y' THEN
2407: AHL_DEBUG_PUB.debug('After Validating Subinv['||p_x_ahl_mtltxn_rec.Subinventory_Name||','||x_return_Status || ']');
2408: END IF;
2409:
2410: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2411: x_return_status := FND_API.G_RET_STS_ERROR;
2412: END IF;
2413: END IF;
2414:
2407: AHL_DEBUG_PUB.debug('After Validating Subinv['||p_x_ahl_mtltxn_rec.Subinventory_Name||','||x_return_Status || ']');
2408: END IF;
2409:
2410: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2411: x_return_status := FND_API.G_RET_STS_ERROR;
2412: END IF;
2413: END IF;
2414:
2415: --If the Transaction_type_id is WIP RETURN
2432: FETCH CSI_LOCATION_CUR INTO l_wip_location;
2433: IF(CSI_LOCATION_CUR%NOTFOUND) THEN
2434: FND_MESSAGE.Set_Name('AHL','AHL_PRD_CSI_INSTALL_ERROR');
2435: FND_MSG_PUB.ADD;
2436: x_return_status := FND_API.G_RET_STS_ERROR;
2437: END IF;
2438: CLOSE CSI_LOCATION_CUR;
2439: IF G_DEBUG='Y' THEN
2440: AHL_DEBUG_PUB.debug('wip location id['||to_char(l_wip_location)||']');
2441: END IF;
2442: */
2443:
2444: IF (p_x_ahl_mtltxn_rec.Serial_Number IS NULL
2445: OR p_x_ahl_mtltxn_rec.Serial_Number = FND_API.G_MISS_CHAR) THEN
2446:
2447: -- Non serialized item:
2448:
2449: l_sql := 'SELECT INSTANCE_ID FROM CSI_ITEM_INSTANCES CII ';
2467: l_sql := l_sql || ' AND ((CIR.ACTIVE_START_DATE IS NULL) OR (CIR.ACTIVE_START_DATE <= SYSDATE))';
2468: l_sql := l_sql || ' AND ((CIR.ACTIVE_END_DATE IS NULL) OR (CIR.ACTIVE_END_DATE > SYSDATE)) )';
2469:
2470: IF(p_x_ahl_mtltxn_rec.Revision IS NOT NULL
2471: AND p_x_ahl_mtltxn_rec.Revision <> FND_API.G_MISS_CHAR) THEN
2472: --l_sql := l_sql || ' AND INVENTORY_REVISION='''||p_x_ahl_mtltxn_rec.Revision||'''';
2473: l_sql := l_sql || ' AND INVENTORY_REVISION=:b5';
2474: l_revision_flag := TRUE;
2475: END IF;
2473: l_sql := l_sql || ' AND INVENTORY_REVISION=:b5';
2474: l_revision_flag := TRUE;
2475: END IF;
2476: IF(p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL
2477: AND p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR) THEN
2478: --l_sql := l_sql || ' AND LOT_NUMBER='''||p_x_ahl_mtltxn_rec.Lot_Number||'''';
2479: l_sql := l_sql || ' AND LOT_NUMBER=:b6';
2480: l_lot_flag := TRUE;
2481: END IF;
2531: EXCEPTION
2532: WHEN NO_DATA_FOUND THEN
2533: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_NOT_ALLOWED');
2534: FND_MSG_PUB.ADD;
2535: x_return_status := FND_API.G_RET_STS_ERROR;
2536: END;
2537: p_x_ahl_mtltxn_rec.Item_Instance_ID := x_Item_Instance_Id;
2538:
2539: ELSE
2580: FETCH CSI_SER_ITEM_CUR INTO x_Item_Instance_Id;
2581: IF(CSI_SER_ITEM_CUR%NOTFOUND) THEN
2582: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_NOT_ALLOWED');
2583: FND_MSG_PUB.ADD;
2584: x_return_status := FND_API.G_RET_STS_ERROR;
2585: END IF;
2586: CLOSE CSI_SER_ITEM_CUR;
2587: p_x_ahl_mtltxn_rec.Item_Instance_ID := x_Item_Instance_Id;
2588: END IF;
2597:
2598: AHL_QA_RESULTS_PVT.get_qa_plan
2599: (
2600: p_api_version => 1.0,
2601: p_init_msg_list => FND_API.G_False,
2602: p_commit => FND_API.G_FALSE,
2603: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2604: p_default => FND_API.G_FALSE,
2605: p_module_type => 'JSP',
2598: AHL_QA_RESULTS_PVT.get_qa_plan
2599: (
2600: p_api_version => 1.0,
2601: p_init_msg_list => FND_API.G_False,
2602: p_commit => FND_API.G_FALSE,
2603: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2604: p_default => FND_API.G_FALSE,
2605: p_module_type => 'JSP',
2606: p_organization_id => p_x_ahl_mtltxn_rec.Organization_Id,
2599: (
2600: p_api_version => 1.0,
2601: p_init_msg_list => FND_API.G_False,
2602: p_commit => FND_API.G_FALSE,
2603: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2604: p_default => FND_API.G_FALSE,
2605: p_module_type => 'JSP',
2606: p_organization_id => p_x_ahl_mtltxn_rec.Organization_Id,
2607: p_transaction_number => 2004,
2600: p_api_version => 1.0,
2601: p_init_msg_list => FND_API.G_False,
2602: p_commit => FND_API.G_FALSE,
2603: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2604: p_default => FND_API.G_FALSE,
2605: p_module_type => 'JSP',
2606: p_organization_id => p_x_ahl_mtltxn_rec.Organization_Id,
2607: p_transaction_number => 2004,
2608: p_col_trigger_value => fnd_profile.value('AHL_MRB_DISP_PLAN_TYPE'),
2610: x_msg_count => l_msg_count,
2611: x_msg_data => l_msg_data,
2612: x_plan_id => l_plan_id
2613: );
2614: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2615: l_plan_id := null;
2616: END If;
2617:
2618: IF ((l_plan_id is not null) AND
2615: l_plan_id := null;
2616: END If;
2617:
2618: IF ((l_plan_id is not null) AND
2619: (p_x_ahl_mtltxn_rec.Qa_Collection_Id = FND_API.G_MISS_NUM OR
2620: p_x_ahl_mtltxn_rec.Qa_Collection_Id IS NULL)) THEN
2621: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NO_QA_RESULTS');
2622: FND_MSG_PUB.ADD;
2623: x_return_status := FND_API.G_RET_STS_ERROR;
2619: (p_x_ahl_mtltxn_rec.Qa_Collection_Id = FND_API.G_MISS_NUM OR
2620: p_x_ahl_mtltxn_rec.Qa_Collection_Id IS NULL)) THEN
2621: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NO_QA_RESULTS');
2622: FND_MSG_PUB.ADD;
2623: x_return_status := FND_API.G_RET_STS_ERROR;
2624: END IF;
2625: END IF;
2626:
2627: IF(p_x_ahl_mtltxn_rec.Problem_Code IS NOT NULL
2624: END IF;
2625: END IF;
2626:
2627: IF(p_x_ahl_mtltxn_rec.Problem_Code IS NOT NULL
2628: AND p_x_ahl_mtltxn_rec.Problem_Code <> FND_API.G_MISS_CHAR) THEN
2629:
2630: IF G_DEBUG='Y' THEN
2631: AHL_DEBUG_PUB.debug('Validating problem code['||p_x_ahl_mtltxn_rec.Problem_Code||']');
2632: END IF;
2636: IF(PROBLEM_CODE_LKUP_CUR%NOTFOUND) THEN
2637: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PROBLEM_CODE_INVALID');
2638: FND_MESSAGE.Set_Token('CODE',p_x_ahl_mtltxn_rec.Problem_Code);
2639: FND_MSG_PUB.ADD;
2640: x_return_status := FND_API.G_RET_STS_ERROR;
2641: END IF;
2642: CLOSE PROBLEM_CODE_LKUP_CUR;
2643: END IF;
2644:
2646: ELSE -- if it is a material issue
2647: -- find out instance id if possible : here (fix for bug number 4089691)
2648: -- Added trackable item check to fix bug# 6331012.
2649: IF (p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL
2650: AND p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR
2651: AND Is_Item_Trackable(p_x_ahl_mtltxn_rec.Organization_Id,
2652: p_x_ahl_mtltxn_rec.Inventory_Item_Id)) THEN
2653: OPEN CSI_ISSUE_SER_ITEM_CUR( p_x_ahl_mtltxn_rec.Inventory_Item_Id,p_x_ahl_mtltxn_rec.Serial_Number );
2654: FETCH CSI_ISSUE_SER_ITEM_CUR INTO p_x_ahl_mtltxn_rec.Item_Instance_ID;
2654: FETCH CSI_ISSUE_SER_ITEM_CUR INTO p_x_ahl_mtltxn_rec.Item_Instance_ID;
2655: IF(CSI_ISSUE_SER_ITEM_CUR%NOTFOUND) THEN
2656: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_NOT_ALLOWED');
2657: FND_MSG_PUB.ADD;
2658: x_return_status := FND_API.G_RET_STS_ERROR;
2659: END IF;
2660: CLOSE CSI_ISSUE_SER_ITEM_CUR;
2661: END IF;
2662: END IF; -- End of IF for WIP Return Check.
2668: IF G_DEBUG='Y' THEN
2669: AHL_DEBUG_PUB.debug('Validating serial num/qty['||p_x_ahl_mtltxn_rec.quantity||']');
2670: END IF;
2671:
2672: IF ((p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR) AND
2673: (p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL) AND
2674: nvl(l_serial_Control,1) <> 1) THEN
2675: IF (p_x_ahl_mtltxn_rec.uom IS NOT NULL AND
2676: p_x_ahl_mtltxn_rec.uom <> l_primary_uom_code) THEN
2688: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_ITEM_QTY');
2689: FND_MESSAGE.Set_Token('PRIM_UOM',l_primary_uom_code);
2690: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2691: FND_MSG_PUB.ADD;
2692: x_return_status := FND_API.G_RET_STS_ERROR;
2693: END IF;
2694: ELSE
2695: -- qty in primary uom.
2696: IF (p_x_ahl_mtltxn_rec.Quantity <> 1) THEN
2697: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_ITEM_QTY');
2698: FND_MESSAGE.Set_Token('PRIM_UOM',l_primary_uom_code);
2699: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2700: FND_MSG_PUB.ADD;
2701: x_return_status := FND_API.G_RET_STS_ERROR;
2702: END IF;
2703: END IF; -- uom code.
2704: END IF; -- serial num.
2705:
2709:
2710: -- For issue txn with serial number, validate if subinventory and locator match
2711: -- that from mtl_serial_numbers.
2712: IF (p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL) AND
2713: (p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR) AND
2714: (nvl(l_serial_Control,0) <> 1) AND
2715: (p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.ISSCOMP_TYPE) THEN
2716: OPEN mtl_srl_num_csr(p_x_ahl_mtltxn_rec.Organization_ID,
2717: p_x_ahl_mtltxn_rec.Inventory_Item_id,
2723: AHL_DEBUG_PUB.debug('Validating serial subinv['||p_x_ahl_mtltxn_rec.subinventory_Name||']');
2724: END IF;
2725:
2726: IF (p_x_ahl_mtltxn_rec.subinventory_Name IS NOT NULL AND
2727: p_x_ahl_mtltxn_rec.subinventory_Name <> FND_API.G_MISS_CHAR AND
2728: p_x_ahl_mtltxn_rec.subinventory_Name <> l_curr_subinventory_code) THEN
2729: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SUB_CODE');
2730: FND_MESSAGE.Set_Token('CODE',l_curr_subinventory_code);
2731: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2730: FND_MESSAGE.Set_Token('CODE',l_curr_subinventory_code);
2731: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2732: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
2733: FND_MSG_PUB.ADD;
2734: x_return_status := FND_API.G_RET_STS_ERROR;
2735: END IF;
2736:
2737: IF G_DEBUG='Y' THEN
2738: AHL_DEBUG_PUB.debug('Validating serial subinv['||p_x_ahl_mtltxn_rec.subinventory_Name||']');
2738: AHL_DEBUG_PUB.debug('Validating serial subinv['||p_x_ahl_mtltxn_rec.subinventory_Name||']');
2739: END IF;
2740:
2741: IF (p_x_ahl_mtltxn_rec.locator_id IS NOT NULL AND
2742: p_x_ahl_mtltxn_rec.locator_id <> FND_API.G_MISS_NUM AND
2743: l_curr_locator_id IS NOT NULL AND
2744: p_x_ahl_mtltxn_rec.locator_id <> l_curr_locator_id) THEN
2745: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOC_CODE');
2746: --FND_MESSAGE.Set_Token('CODE',l_curr_locator_id);
2746: --FND_MESSAGE.Set_Token('CODE',l_curr_locator_id);
2747: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2748: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
2749: FND_MSG_PUB.ADD;
2750: x_return_status := FND_API.G_RET_STS_ERROR;
2751: END IF;
2752: ELSE
2753: -- serial number not found.
2754: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SRLNUM');
2754: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SRLNUM');
2755: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2756: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
2757: FND_MSG_PUB.ADD;
2758: x_return_status := FND_API.G_RET_STS_ERROR;
2759: END IF;
2760:
2761: CLOSE mtl_srl_num_csr;
2762: END IF;
2766: END IF;
2767:
2768: -- Validate transaction date.
2769: IF (p_x_ahl_mtltxn_rec.transaction_date IS NULL OR
2770: p_x_ahl_mtltxn_rec.transaction_date = FND_API.G_MISS_DATE) THEN
2771: p_x_ahl_mtltxn_rec.transaction_date := SYSDATE;
2772: /*
2773: * defaulting the time component to 23:59:59(for past dates) and systime for current date to fix bug#4096941
2774: */
2784: END IF;
2785: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_TXN_DATE');
2786: FND_MESSAGE.Set_Token('DATE',p_x_ahl_mtltxn_rec.transaction_date);
2787: FND_MSG_PUB.ADD;
2788: x_return_status := FND_API.G_RET_STS_ERROR;
2789: END IF;
2790:
2791: END IF;
2792: /*
2795: OPEN workorder_released_date_csr(p_x_ahl_mtltxn_rec.Wip_Entity_Id);
2796: FETCH workorder_released_date_csr INTO l_workorder_released_date;
2797: IF(workorder_released_date_csr%NOTFOUND)THEN
2798: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WIP_ENTITY');
2799: IF(p_x_ahl_mtltxn_rec.Wip_Entity_Id = FND_API.G_MISS_NUM) THEN
2800: p_x_ahl_mtltxn_rec.Wip_Entity_Id := NULL;
2801: END IF;
2802: FND_MESSAGE.Set_Token('WIP_ENTITY',p_x_ahl_mtltxn_rec.Wip_Entity_Id);
2803: FND_MSG_PUB.ADD;
2800: p_x_ahl_mtltxn_rec.Wip_Entity_Id := NULL;
2801: END IF;
2802: FND_MESSAGE.Set_Token('WIP_ENTITY',p_x_ahl_mtltxn_rec.Wip_Entity_Id);
2803: FND_MSG_PUB.ADD;
2804: x_return_status := FND_API.G_RET_STS_ERROR;
2805: ELSE
2806: IF G_DEBUG='Y' THEN
2807: AHL_DEBUG_PUB.debug('transaction date['||to_char(p_x_ahl_mtltxn_rec.transaction_date,'dd-mon-yyyy hh24:mi:ss') ||']');
2808: AHL_DEBUG_PUB.debug('workorder release date['||to_char(l_workorder_released_date,'dd-mon-yyyy hh24:mi:ss') ||']');
2814: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_TXN_REL_DT');
2815: FND_MESSAGE.Set_Token('TXNS_DATE',to_char(p_x_ahl_mtltxn_rec.transaction_date,'dd-MON-yyyy hh24:mi:ss'));
2816: FND_MESSAGE.Set_Token('REL_DATE',to_char(l_workorder_released_date,'dd-MON-yyyy hh24:mi:ss'));
2817: FND_MSG_PUB.ADD;
2818: x_return_status := FND_API.G_RET_STS_ERROR;
2819: END IF;
2820: END IF;
2821: CLOSE workorder_released_date_csr;
2822:
2831: END IF;
2832:
2833: -- validate disposition id.
2834: IF (p_x_ahl_mtltxn_rec.disposition_id IS NOT NULL AND
2835: p_x_ahl_mtltxn_rec.disposition_id <> FND_API.G_MISS_NUM) THEN
2836:
2837: -- chk if disposition exists.
2838: OPEN disposition_cur ( p_x_ahl_mtltxn_rec.disposition_id,
2839: p_x_ahl_mtltxn_rec.workorder_id,
2846: IF (disposition_cur%NOTFOUND) THEN
2847: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_DISP_INVALID');
2848: FND_MESSAGE.Set_Token('DISP_ID',p_x_ahl_mtltxn_rec.disposition_id);
2849: FND_MSG_PUB.ADD;
2850: x_return_status := FND_API.G_RET_STS_ERROR;
2851: END IF;
2852: CLOSE disposition_cur;
2853: END IF; -- -- p_x_ahl_mtltxn_rec.disposition_id
2854:
2885: /*
2886: PROCEDURE INSERT_MTL_TXN_TEMP
2887: (
2888: p_api_version IN NUMBER := 1.0,
2889: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2890: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2891: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2892: p_default IN VARCHAR2 := FND_API.G_FALSE,
2893: p_module_type IN VARCHAR2 := NULL,
2886: PROCEDURE INSERT_MTL_TXN_TEMP
2887: (
2888: p_api_version IN NUMBER := 1.0,
2889: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2890: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2891: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2892: p_default IN VARCHAR2 := FND_API.G_FALSE,
2893: p_module_type IN VARCHAR2 := NULL,
2894: p_x_ahl_mtltxn_rec IN OUT NOCOPY Ahl_Mtltxn_Rec_Type,
2887: (
2888: p_api_version IN NUMBER := 1.0,
2889: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2890: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2891: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2892: p_default IN VARCHAR2 := FND_API.G_FALSE,
2893: p_module_type IN VARCHAR2 := NULL,
2894: p_x_ahl_mtltxn_rec IN OUT NOCOPY Ahl_Mtltxn_Rec_Type,
2895: x_txn_Hdr_Id OUT NOCOPY NUMBER,
2888: p_api_version IN NUMBER := 1.0,
2889: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2890: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2891: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2892: p_default IN VARCHAR2 := FND_API.G_FALSE,
2893: p_module_type IN VARCHAR2 := NULL,
2894: p_x_ahl_mtltxn_rec IN OUT NOCOPY Ahl_Mtltxn_Rec_Type,
2895: x_txn_Hdr_Id OUT NOCOPY NUMBER,
2896: x_txn_Tmp_id OUT NOCOPY NUMBER,
2934: AHL_DEBUG_PUB.debug('Did not find the account period for org('||p_x_ahl_mtltxn_rec.Organization_Id||')');
2935:
2936: END IF;
2937: CLOSE ACCT_PERIOD_CUR;
2938: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2939: END IF;
2940: CLOSE ACCT_PERIOD_CUR;
2941:
2942: OPEN TRX_ACTION_CUR(p_x_ahl_mtltxn_rec.Transaction_Type_Id);
2946: AHL_DEBUG_PUB.debug('Did not find the Txn Type');
2947:
2948: END IF;
2949: CLOSE TRX_ACTION_CUR;
2950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2951: END IF;
2952: CLOSE TRX_ACTION_CUR;
2953:
2954: l_mmtt_rec.SOURCE_CODE := 'AHL' ;
2954: l_mmtt_rec.SOURCE_CODE := 'AHL' ;
2955: l_mmtt_rec.SOURCE_LINE_ID := 1;
2956: l_mmtt_rec.TRANSACTION_MODE := l_transaction_Mode;
2957:
2958: IF (p_x_ahl_mtltxn_rec.transaction_reference = FND_API.G_MISS_CHAR) THEN
2959: l_transaction_reference := NULL;
2960: ELSE
2961: l_transaction_reference := p_x_ahl_mtltxn_rec.transaction_reference;
2962: END IF;
2971: --l_mmtt_rec.PROGRAM_ID :=
2972: --l_mmtt_rec.PROGRAM_UPDATE_DATE :=
2973: l_mmtt_rec.INVENTORY_ITEM_ID := p_x_ahl_mtltxn_rec.Inventory_Item_Id;
2974: if(p_x_ahl_mtltxn_rec.Revision IS NOT NULL
2975: AND p_x_ahl_mtltxn_rec.Revision <> FND_API.G_MISS_CHAR) THEN
2976: l_mmtt_rec.REVISION := p_x_ahl_mtltxn_rec.Revision;
2977: END IF;
2978: l_mmtt_rec.ORGANIZATION_ID := p_x_ahl_mtltxn_rec.Organization_Id;
2979: l_mmtt_rec.SUBINVENTORY_CODE := p_x_ahl_mtltxn_rec.Subinventory_Name;
2977: END IF;
2978: l_mmtt_rec.ORGANIZATION_ID := p_x_ahl_mtltxn_rec.Organization_Id;
2979: l_mmtt_rec.SUBINVENTORY_CODE := p_x_ahl_mtltxn_rec.Subinventory_Name;
2980: IF(p_x_ahl_mtltxn_rec.Locator_Id IS NOT NULL
2981: AND p_x_ahl_mtltxn_rec.Locator_Id <> FND_API.G_MISS_NUM) THEN
2982: l_mmtt_rec.LOCATOR_ID := p_x_ahl_mtltxn_rec.Locator_Id;
2983: END IF;
2984: if(p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.ISSCOMP_TYPE) THEN
2985: l_mmtt_rec.TRANSACTION_QUANTITY := - p_x_ahl_mtltxn_rec.Quantity;
2999: l_mmtt_rec.TRANSACTION_REFERENCE := l_transaction_reference;
3000: -- l_mmtt_rec.REQUISITION_LINE_ID :=
3001: -- l_mmtt_rec.REQUISITION_DISTRIBUTION_ID :=
3002: IF(p_x_ahl_mtltxn_rec.Reason_Id IS NOT NULL
3003: AND p_x_ahl_mtltxn_rec.Reason_Id <> FND_API.G_MISS_NUM) THEN
3004: l_mmtt_rec.REASON_ID :=p_x_ahl_mtltxn_rec.Reason_Id;
3005: END IF;
3006: --l_mmtt_rec.LOT_NUMBER := p_lot_number;
3007: --l_mmtt_rec.LOT_EXPIRATION_DATE :=
3011: l_mmtt_rec.OPERATION_SEQ_NUM := p_x_ahl_mtltxn_rec.Operation_Seq_Num;
3012: --l_mmtt_rec.ITEM_LOCATION_CONTROL_CODE :=
3013: l_mmtt_rec.PROCESS_FLAG := l_Process_Flag;
3014: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE_CATEGORY IS NOT NULL
3015: AND p_x_ahl_mtltxn_rec.ATTRIBUTE_CATEGORY <> FND_API.G_MISS_CHAR) THEN
3016: l_mmtt_rec.ATTRIBUTE_CATEGORY := p_x_ahl_mtltxn_rec.ATTRIBUTE_CATEGORY;
3017: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE1 IS NOT NULL
3018: AND p_x_ahl_mtltxn_rec.ATTRIBUTE1 <> FND_API.G_MISS_CHAR) THEN
3019: l_mmtt_rec.ATTRIBUTE1 := p_x_ahl_mtltxn_rec.ATTRIBUTE1;
3014: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE_CATEGORY IS NOT NULL
3015: AND p_x_ahl_mtltxn_rec.ATTRIBUTE_CATEGORY <> FND_API.G_MISS_CHAR) THEN
3016: l_mmtt_rec.ATTRIBUTE_CATEGORY := p_x_ahl_mtltxn_rec.ATTRIBUTE_CATEGORY;
3017: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE1 IS NOT NULL
3018: AND p_x_ahl_mtltxn_rec.ATTRIBUTE1 <> FND_API.G_MISS_CHAR) THEN
3019: l_mmtt_rec.ATTRIBUTE1 := p_x_ahl_mtltxn_rec.ATTRIBUTE1;
3020: END IF;
3021: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE2 IS NOT NULL
3022: AND p_x_ahl_mtltxn_rec.ATTRIBUTE2 <> FND_API.G_MISS_CHAR) THEN
3018: AND p_x_ahl_mtltxn_rec.ATTRIBUTE1 <> FND_API.G_MISS_CHAR) THEN
3019: l_mmtt_rec.ATTRIBUTE1 := p_x_ahl_mtltxn_rec.ATTRIBUTE1;
3020: END IF;
3021: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE2 IS NOT NULL
3022: AND p_x_ahl_mtltxn_rec.ATTRIBUTE2 <> FND_API.G_MISS_CHAR) THEN
3023: l_mmtt_rec.ATTRIBUTE2 := p_x_ahl_mtltxn_rec.ATTRIBUTE2;
3024: END IF;
3025: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE3 IS NOT NULL
3026: AND p_x_ahl_mtltxn_rec.ATTRIBUTE3 <> FND_API.G_MISS_CHAR) THEN
3022: AND p_x_ahl_mtltxn_rec.ATTRIBUTE2 <> FND_API.G_MISS_CHAR) THEN
3023: l_mmtt_rec.ATTRIBUTE2 := p_x_ahl_mtltxn_rec.ATTRIBUTE2;
3024: END IF;
3025: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE3 IS NOT NULL
3026: AND p_x_ahl_mtltxn_rec.ATTRIBUTE3 <> FND_API.G_MISS_CHAR) THEN
3027: l_mmtt_rec.ATTRIBUTE3 := p_x_ahl_mtltxn_rec.ATTRIBUTE3;
3028: END IF;
3029: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE4 IS NOT NULL
3030: AND p_x_ahl_mtltxn_rec.ATTRIBUTE4 <> FND_API.G_MISS_CHAR) THEN
3026: AND p_x_ahl_mtltxn_rec.ATTRIBUTE3 <> FND_API.G_MISS_CHAR) THEN
3027: l_mmtt_rec.ATTRIBUTE3 := p_x_ahl_mtltxn_rec.ATTRIBUTE3;
3028: END IF;
3029: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE4 IS NOT NULL
3030: AND p_x_ahl_mtltxn_rec.ATTRIBUTE4 <> FND_API.G_MISS_CHAR) THEN
3031: l_mmtt_rec.ATTRIBUTE4 := p_x_ahl_mtltxn_rec.ATTRIBUTE4;
3032: END IF;
3033: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE5 IS NOT NULL
3034: AND p_x_ahl_mtltxn_rec.ATTRIBUTE5 <> FND_API.G_MISS_CHAR) THEN
3030: AND p_x_ahl_mtltxn_rec.ATTRIBUTE4 <> FND_API.G_MISS_CHAR) THEN
3031: l_mmtt_rec.ATTRIBUTE4 := p_x_ahl_mtltxn_rec.ATTRIBUTE4;
3032: END IF;
3033: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE5 IS NOT NULL
3034: AND p_x_ahl_mtltxn_rec.ATTRIBUTE5 <> FND_API.G_MISS_CHAR) THEN
3035: l_mmtt_rec.ATTRIBUTE5 := p_x_ahl_mtltxn_rec.ATTRIBUTE5;
3036: END IF;
3037: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE6 IS NOT NULL
3038: AND p_x_ahl_mtltxn_rec.ATTRIBUTE6 <> FND_API.G_MISS_CHAR) THEN
3034: AND p_x_ahl_mtltxn_rec.ATTRIBUTE5 <> FND_API.G_MISS_CHAR) THEN
3035: l_mmtt_rec.ATTRIBUTE5 := p_x_ahl_mtltxn_rec.ATTRIBUTE5;
3036: END IF;
3037: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE6 IS NOT NULL
3038: AND p_x_ahl_mtltxn_rec.ATTRIBUTE6 <> FND_API.G_MISS_CHAR) THEN
3039: l_mmtt_rec.ATTRIBUTE6 := p_x_ahl_mtltxn_rec.ATTRIBUTE6;
3040: END IF;
3041: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE7 IS NOT NULL
3042: AND p_x_ahl_mtltxn_rec.ATTRIBUTE7 <> FND_API.G_MISS_CHAR) THEN
3038: AND p_x_ahl_mtltxn_rec.ATTRIBUTE6 <> FND_API.G_MISS_CHAR) THEN
3039: l_mmtt_rec.ATTRIBUTE6 := p_x_ahl_mtltxn_rec.ATTRIBUTE6;
3040: END IF;
3041: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE7 IS NOT NULL
3042: AND p_x_ahl_mtltxn_rec.ATTRIBUTE7 <> FND_API.G_MISS_CHAR) THEN
3043: l_mmtt_rec.ATTRIBUTE7 := p_x_ahl_mtltxn_rec.ATTRIBUTE7;
3044: END IF;
3045: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE8 IS NOT NULL
3046: AND p_x_ahl_mtltxn_rec.ATTRIBUTE8 <> FND_API.G_MISS_CHAR) THEN
3042: AND p_x_ahl_mtltxn_rec.ATTRIBUTE7 <> FND_API.G_MISS_CHAR) THEN
3043: l_mmtt_rec.ATTRIBUTE7 := p_x_ahl_mtltxn_rec.ATTRIBUTE7;
3044: END IF;
3045: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE8 IS NOT NULL
3046: AND p_x_ahl_mtltxn_rec.ATTRIBUTE8 <> FND_API.G_MISS_CHAR) THEN
3047: l_mmtt_rec.ATTRIBUTE8 := p_x_ahl_mtltxn_rec.ATTRIBUTE8;
3048: END IF;
3049: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE9 IS NOT NULL
3050: AND p_x_ahl_mtltxn_rec.ATTRIBUTE9 <> FND_API.G_MISS_CHAR) THEN
3046: AND p_x_ahl_mtltxn_rec.ATTRIBUTE8 <> FND_API.G_MISS_CHAR) THEN
3047: l_mmtt_rec.ATTRIBUTE8 := p_x_ahl_mtltxn_rec.ATTRIBUTE8;
3048: END IF;
3049: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE9 IS NOT NULL
3050: AND p_x_ahl_mtltxn_rec.ATTRIBUTE9 <> FND_API.G_MISS_CHAR) THEN
3051: l_mmtt_rec.ATTRIBUTE9 := p_x_ahl_mtltxn_rec.ATTRIBUTE9;
3052: END IF;
3053: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE10 IS NOT NULL
3054: AND p_x_ahl_mtltxn_rec.ATTRIBUTE10 <> FND_API.G_MISS_CHAR) THEN
3050: AND p_x_ahl_mtltxn_rec.ATTRIBUTE9 <> FND_API.G_MISS_CHAR) THEN
3051: l_mmtt_rec.ATTRIBUTE9 := p_x_ahl_mtltxn_rec.ATTRIBUTE9;
3052: END IF;
3053: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE10 IS NOT NULL
3054: AND p_x_ahl_mtltxn_rec.ATTRIBUTE10 <> FND_API.G_MISS_CHAR) THEN
3055: l_mmtt_rec.ATTRIBUTE10 := p_x_ahl_mtltxn_rec.ATTRIBUTE10;
3056: END IF;
3057: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE11 IS NOT NULL
3058: AND p_x_ahl_mtltxn_rec.ATTRIBUTE11 <> FND_API.G_MISS_CHAR) THEN
3054: AND p_x_ahl_mtltxn_rec.ATTRIBUTE10 <> FND_API.G_MISS_CHAR) THEN
3055: l_mmtt_rec.ATTRIBUTE10 := p_x_ahl_mtltxn_rec.ATTRIBUTE10;
3056: END IF;
3057: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE11 IS NOT NULL
3058: AND p_x_ahl_mtltxn_rec.ATTRIBUTE11 <> FND_API.G_MISS_CHAR) THEN
3059: l_mmtt_rec.ATTRIBUTE11 := p_x_ahl_mtltxn_rec.ATTRIBUTE11;
3060: END IF;
3061: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE12 IS NOT NULL
3062: AND p_x_ahl_mtltxn_rec.ATTRIBUTE12 <> FND_API.G_MISS_CHAR) THEN
3058: AND p_x_ahl_mtltxn_rec.ATTRIBUTE11 <> FND_API.G_MISS_CHAR) THEN
3059: l_mmtt_rec.ATTRIBUTE11 := p_x_ahl_mtltxn_rec.ATTRIBUTE11;
3060: END IF;
3061: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE12 IS NOT NULL
3062: AND p_x_ahl_mtltxn_rec.ATTRIBUTE12 <> FND_API.G_MISS_CHAR) THEN
3063: l_mmtt_rec.ATTRIBUTE12 := p_x_ahl_mtltxn_rec.ATTRIBUTE12;
3064: END IF;
3065: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE13 IS NOT NULL
3066: AND p_x_ahl_mtltxn_rec.ATTRIBUTE13 <> FND_API.G_MISS_CHAR) THEN
3062: AND p_x_ahl_mtltxn_rec.ATTRIBUTE12 <> FND_API.G_MISS_CHAR) THEN
3063: l_mmtt_rec.ATTRIBUTE12 := p_x_ahl_mtltxn_rec.ATTRIBUTE12;
3064: END IF;
3065: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE13 IS NOT NULL
3066: AND p_x_ahl_mtltxn_rec.ATTRIBUTE13 <> FND_API.G_MISS_CHAR) THEN
3067: l_mmtt_rec.ATTRIBUTE13 := p_x_ahl_mtltxn_rec.ATTRIBUTE13;
3068: END IF;
3069: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE14 IS NOT NULL
3070: AND p_x_ahl_mtltxn_rec.ATTRIBUTE14 <> FND_API.G_MISS_CHAR) THEN
3066: AND p_x_ahl_mtltxn_rec.ATTRIBUTE13 <> FND_API.G_MISS_CHAR) THEN
3067: l_mmtt_rec.ATTRIBUTE13 := p_x_ahl_mtltxn_rec.ATTRIBUTE13;
3068: END IF;
3069: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE14 IS NOT NULL
3070: AND p_x_ahl_mtltxn_rec.ATTRIBUTE14 <> FND_API.G_MISS_CHAR) THEN
3071: l_mmtt_rec.ATTRIBUTE14 := p_x_ahl_mtltxn_rec.ATTRIBUTE14;
3072: END IF;
3073: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE15 IS NOT NULL
3074: AND p_x_ahl_mtltxn_rec.ATTRIBUTE15 <> FND_API.G_MISS_CHAR) THEN
3070: AND p_x_ahl_mtltxn_rec.ATTRIBUTE14 <> FND_API.G_MISS_CHAR) THEN
3071: l_mmtt_rec.ATTRIBUTE14 := p_x_ahl_mtltxn_rec.ATTRIBUTE14;
3072: END IF;
3073: IF(p_x_ahl_mtltxn_rec.ATTRIBUTE15 IS NOT NULL
3074: AND p_x_ahl_mtltxn_rec.ATTRIBUTE15 <> FND_API.G_MISS_CHAR) THEN
3075: l_mmtt_rec.ATTRIBUTE15 := p_x_ahl_mtltxn_rec.ATTRIBUTE15;
3076: END IF;
3077: END IF;
3078:
3090:
3091: IF G_DEBUG='Y' THEN
3092: AHL_DEBUG_PUB.debug('inserted in mmtt..ret_status['||x_return_status||']');
3093: END IF;
3094: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3095: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3096: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3097: FND_MSG_PUB.ADD;
3098: RAISE FND_API.G_EXC_ERROR;
3094: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3095: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3096: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3097: FND_MSG_PUB.ADD;
3098: RAISE FND_API.G_EXC_ERROR;
3099: END IF;
3100:
3101: IF(p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR AND
3102: p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL AND
3097: FND_MSG_PUB.ADD;
3098: RAISE FND_API.G_EXC_ERROR;
3099: END IF;
3100:
3101: IF(p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR AND
3102: p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL AND
3103: p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR AND
3104: p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL) THEN
3105:
3099: END IF;
3100:
3101: IF(p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR AND
3102: p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL AND
3103: p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR AND
3104: p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL) THEN
3105:
3106: --Item is under Lot and Serial Control
3107: --Generate serial transaction Temp id.
3147: x_msg_data => x_msg_data);
3148: IF G_DEBUG='Y' THEN
3149: AHL_DEBUG_PUB.debug('inserted in mtlt..ret_status['||x_return_status||']');
3150: END IF;
3151: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3152: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3153: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3154: FND_MSG_PUB.ADD;
3155: RAISE FND_API.G_EXC_ERROR;
3151: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3152: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3153: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3154: FND_MSG_PUB.ADD;
3155: RAISE FND_API.G_EXC_ERROR;
3156: END IF;
3157: IF G_DEBUG='Y' THEN
3158: AHL_DEBUG_PUB.debug('inserting in msnt..');
3159:
3168: AHL_DEBUG_PUB.debug('inserted in msnt..ret_status['||x_return_status||']');
3169:
3170: END IF;
3171:
3172: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3173: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3174: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3175: FND_MSG_PUB.ADD;
3176: RAISE FND_API.G_EXC_ERROR;
3172: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3173: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3174: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3175: FND_MSG_PUB.ADD;
3176: RAISE FND_API.G_EXC_ERROR;
3177: END IF;
3178:
3179: ELSIF (p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR AND
3180: p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL ) THEN
3175: FND_MSG_PUB.ADD;
3176: RAISE FND_API.G_EXC_ERROR;
3177: END IF;
3178:
3179: ELSIF (p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR AND
3180: p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL ) THEN
3181: --Item is under Lot control
3182: l_mtlt_rec.Transaction_Temp_Id := x_Txn_Tmp_Id;
3183: l_mtlt_rec.Lot_Number := p_x_ahl_mtltxn_rec.Lot_Number;
3202: IF G_DEBUG='Y' THEN
3203: AHL_DEBUG_PUB.debug('inserted in mtlt..ret_status['||x_return_status||']');
3204:
3205: END IF;
3206: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3207: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3208: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3209: FND_MSG_PUB.ADD;
3210: RAISE FND_API.G_EXC_ERROR;
3206: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3207: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3208: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3209: FND_MSG_PUB.ADD;
3210: RAISE FND_API.G_EXC_ERROR;
3211: END IF;
3212:
3213: ELSIF (p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR AND
3214: p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL) THEN
3209: FND_MSG_PUB.ADD;
3210: RAISE FND_API.G_EXC_ERROR;
3211: END IF;
3212:
3213: ELSIF (p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR AND
3214: p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL) THEN
3215: -- Item is under serial control
3216: l_msnt_rec.Transaction_Temp_Id := x_Txn_Tmp_Id;
3217: l_msnt_rec.Fm_Serial_Number := p_x_ahl_mtltxn_rec.Serial_Number;
3236: AHL_DEBUG_PUB.debug('inserted in msnt..ret_status['||x_return_status||']');
3237:
3238: END IF;
3239:
3240: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3241: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3242: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3243: FND_MSG_PUB.ADD;
3244: RAISE FND_API.G_EXC_ERROR;
3240: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3241: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3242: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3243: FND_MSG_PUB.ADD;
3244: RAISE FND_API.G_EXC_ERROR;
3245: END IF;
3246: END IF;
3247: END INSERT_MTL_TXN_TEMP;
3248: */
3328: IF(Workop_Det_Cur%NOTFOUND) THEN
3329: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WO_OP');
3330: FND_MSG_PUB.ADD;
3331: CLOSE Workop_Det_Cur;
3332: RAISE FND_API.G_EXC_ERROR;
3333: END IF;
3334: CLOSE Workop_Det_Cur;
3335: IF G_DEBUG='Y' THEN
3336: AHL_DEBUG_PUB.debug('Selected the work order paramters');
3348: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_ITEM');
3349: FND_MESSAGE.Set_Token('FIELD',p_mtl_txn_Rec.Inventory_Item_Id);
3350: FND_MSG_PUB.ADD;
3351: CLOSE Item_Desc_Cur;
3352: RAISE FND_API.G_EXC_ERROR;
3353: END IF;
3354: CLOSE Item_Desc_Cur;
3355: IF G_DEBUG='Y' THEN
3356: AHL_DEBUG_PUB.debug('Selected the Item description');
3425: AHL_DEBUG_PUB.debug('x_return_status['||x_return_status||']');
3426: AHL_DEBUG_PUB.debug('x_msg_data['||x_msg_data||']');
3427:
3428: END IF;
3429: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3430: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTLAPI_ERROR');
3431: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3432: FND_MSG_PUB.ADD;
3433: RAISE FND_API.G_EXC_ERROR;
3429: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3430: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTLAPI_ERROR');
3431: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3432: FND_MSG_PUB.ADD;
3433: RAISE FND_API.G_EXC_ERROR;
3434: END IF;
3435:
3436: /* will be updated after wip api is successful - modified for bug fix 5499575.
3437: -- Update Completed quantity.
3548: l_source_line_id := 1;
3549: l_Source_Header_Id := 1;
3550:
3551:
3552: x_return_status := FND_API.G_RET_STS_SUCCESS;
3553:
3554: OPEN TRX_ACTION_CUR(p_x_ahl_mtl_txn_rec.Transaction_Type_Id);
3555: FETCH TRX_ACTION_CUR INTO l_txn_action, l_txn_source_type;
3556: IF(TRX_ACTION_CUR%NOTFOUND) THEN
3557: IF G_DEBUG='Y' THEN
3558: AHL_DEBUG_PUB.debug('Did not find the Txn Type');
3559: END IF;
3560: CLOSE TRX_ACTION_CUR;
3561: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3562: END IF;
3563: CLOSE TRX_ACTION_CUR;
3564:
3565:
3583: IF G_DEBUG='Y' THEN
3584: AHL_DEBUG_PUB.debug('Interface id created..['||p_x_txn_intf_id||']');
3585: END IF;
3586:
3587: if(p_x_ahl_mtl_txn_rec.Revision = FND_API.G_MISS_CHAR) THEN
3588: p_x_ahl_mtl_txn_rec.Revision := NULL;
3589: END IF;
3590: IF(p_x_ahl_mtl_txn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
3591: p_x_ahl_mtl_txn_rec.Locator_Id := NULL;
3586:
3587: if(p_x_ahl_mtl_txn_rec.Revision = FND_API.G_MISS_CHAR) THEN
3588: p_x_ahl_mtl_txn_rec.Revision := NULL;
3589: END IF;
3590: IF(p_x_ahl_mtl_txn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
3591: p_x_ahl_mtl_txn_rec.Locator_Id := NULL;
3592: END IF;
3593: if(p_x_ahl_mtl_txn_rec.Transaction_Type_Id = WIP_CONSTANTS.ISSCOMP_TYPE) THEN
3594: IF (p_eam_item_type_id = WIP_CONSTANTS.rebuild_item_type AND p_x_ahl_mtl_txn_rec.Quantity > 1) THEN
3611: AHL_DEBUG_PUB.debug('Loop Count is..['||l_loop_count||']');
3612: AHL_DEBUG_PUB.debug('l_qty is..['||l_qty||']');
3613: END IF;
3614:
3615: IF( p_x_ahl_mtl_txn_rec.Reason_Id = FND_API.G_MISS_NUM) THEN
3616: p_x_ahl_mtl_txn_rec.Reason_Id := NULL;
3617: END IF;
3618: IF( p_x_ahl_mtl_txn_rec.Serial_number = FND_API.G_MISS_CHAR) THEN
3619: p_x_ahl_mtl_txn_rec.Serial_number := NULL;
3614:
3615: IF( p_x_ahl_mtl_txn_rec.Reason_Id = FND_API.G_MISS_NUM) THEN
3616: p_x_ahl_mtl_txn_rec.Reason_Id := NULL;
3617: END IF;
3618: IF( p_x_ahl_mtl_txn_rec.Serial_number = FND_API.G_MISS_CHAR) THEN
3619: p_x_ahl_mtl_txn_rec.Serial_number := NULL;
3620: END IF;
3621: IF( p_x_ahl_mtl_txn_rec.Lot_number = FND_API.G_MISS_CHAR) THEN
3622: p_x_ahl_mtl_txn_rec.Lot_number := NULL;
3617: END IF;
3618: IF( p_x_ahl_mtl_txn_rec.Serial_number = FND_API.G_MISS_CHAR) THEN
3619: p_x_ahl_mtl_txn_rec.Serial_number := NULL;
3620: END IF;
3621: IF( p_x_ahl_mtl_txn_rec.Lot_number = FND_API.G_MISS_CHAR) THEN
3622: p_x_ahl_mtl_txn_rec.Lot_number := NULL;
3623: END IF;
3624: IF (p_x_ahl_mtl_txn_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
3625: p_x_ahl_mtl_txn_rec.ATTRIBUTE_CATEGORY := NULL;
3620: END IF;
3621: IF( p_x_ahl_mtl_txn_rec.Lot_number = FND_API.G_MISS_CHAR) THEN
3622: p_x_ahl_mtl_txn_rec.Lot_number := NULL;
3623: END IF;
3624: IF (p_x_ahl_mtl_txn_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
3625: p_x_ahl_mtl_txn_rec.ATTRIBUTE_CATEGORY := NULL;
3626: END IF;
3627: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
3628: p_x_ahl_mtl_txn_rec.ATTRIBUTE1 := NULL;
3623: END IF;
3624: IF (p_x_ahl_mtl_txn_rec.ATTRIBUTE_CATEGORY = FND_API.G_MISS_CHAR) THEN
3625: p_x_ahl_mtl_txn_rec.ATTRIBUTE_CATEGORY := NULL;
3626: END IF;
3627: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
3628: p_x_ahl_mtl_txn_rec.ATTRIBUTE1 := NULL;
3629: END IF;
3630: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
3631: p_x_ahl_mtl_txn_rec.ATTRIBUTE2 := NULL;
3626: END IF;
3627: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE1 = FND_API.G_MISS_CHAR) THEN
3628: p_x_ahl_mtl_txn_rec.ATTRIBUTE1 := NULL;
3629: END IF;
3630: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
3631: p_x_ahl_mtl_txn_rec.ATTRIBUTE2 := NULL;
3632: END IF;
3633: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
3634: p_x_ahl_mtl_txn_rec.ATTRIBUTE3 := NULL;
3629: END IF;
3630: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE2 = FND_API.G_MISS_CHAR) THEN
3631: p_x_ahl_mtl_txn_rec.ATTRIBUTE2 := NULL;
3632: END IF;
3633: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
3634: p_x_ahl_mtl_txn_rec.ATTRIBUTE3 := NULL;
3635: END IF;
3636: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
3637: p_x_ahl_mtl_txn_rec.ATTRIBUTE4 := NULL;
3632: END IF;
3633: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE3 = FND_API.G_MISS_CHAR) THEN
3634: p_x_ahl_mtl_txn_rec.ATTRIBUTE3 := NULL;
3635: END IF;
3636: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
3637: p_x_ahl_mtl_txn_rec.ATTRIBUTE4 := NULL;
3638: END IF;
3639: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
3640: p_x_ahl_mtl_txn_rec.ATTRIBUTE5 := NULL;
3635: END IF;
3636: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE4 = FND_API.G_MISS_CHAR) THEN
3637: p_x_ahl_mtl_txn_rec.ATTRIBUTE4 := NULL;
3638: END IF;
3639: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
3640: p_x_ahl_mtl_txn_rec.ATTRIBUTE5 := NULL;
3641: END IF;
3642: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
3643: p_x_ahl_mtl_txn_rec.ATTRIBUTE6 := NULL;
3638: END IF;
3639: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE5 = FND_API.G_MISS_CHAR) THEN
3640: p_x_ahl_mtl_txn_rec.ATTRIBUTE5 := NULL;
3641: END IF;
3642: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
3643: p_x_ahl_mtl_txn_rec.ATTRIBUTE6 := NULL;
3644: END IF;
3645: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
3646: p_x_ahl_mtl_txn_rec.ATTRIBUTE7 := NULL;
3641: END IF;
3642: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE6 = FND_API.G_MISS_CHAR) THEN
3643: p_x_ahl_mtl_txn_rec.ATTRIBUTE6 := NULL;
3644: END IF;
3645: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
3646: p_x_ahl_mtl_txn_rec.ATTRIBUTE7 := NULL;
3647: END IF;
3648: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
3649: p_x_ahl_mtl_txn_rec.ATTRIBUTE8 := NULL;
3644: END IF;
3645: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE7 = FND_API.G_MISS_CHAR) THEN
3646: p_x_ahl_mtl_txn_rec.ATTRIBUTE7 := NULL;
3647: END IF;
3648: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
3649: p_x_ahl_mtl_txn_rec.ATTRIBUTE8 := NULL;
3650: END IF;
3651: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
3652: p_x_ahl_mtl_txn_rec.ATTRIBUTE9 := NULL;
3647: END IF;
3648: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE8 = FND_API.G_MISS_CHAR) THEN
3649: p_x_ahl_mtl_txn_rec.ATTRIBUTE8 := NULL;
3650: END IF;
3651: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
3652: p_x_ahl_mtl_txn_rec.ATTRIBUTE9 := NULL;
3653: END IF;
3654: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
3655: p_x_ahl_mtl_txn_rec.ATTRIBUTE10 := NULL;
3650: END IF;
3651: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE9 = FND_API.G_MISS_CHAR) THEN
3652: p_x_ahl_mtl_txn_rec.ATTRIBUTE9 := NULL;
3653: END IF;
3654: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
3655: p_x_ahl_mtl_txn_rec.ATTRIBUTE10 := NULL;
3656: END IF;
3657: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
3658: p_x_ahl_mtl_txn_rec.ATTRIBUTE11 := NULL;
3653: END IF;
3654: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE10 = FND_API.G_MISS_CHAR) THEN
3655: p_x_ahl_mtl_txn_rec.ATTRIBUTE10 := NULL;
3656: END IF;
3657: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
3658: p_x_ahl_mtl_txn_rec.ATTRIBUTE11 := NULL;
3659: END IF;
3660: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
3661: p_x_ahl_mtl_txn_rec.ATTRIBUTE12 := NULL;
3656: END IF;
3657: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE11 = FND_API.G_MISS_CHAR) THEN
3658: p_x_ahl_mtl_txn_rec.ATTRIBUTE11 := NULL;
3659: END IF;
3660: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
3661: p_x_ahl_mtl_txn_rec.ATTRIBUTE12 := NULL;
3662: END IF;
3663: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
3664: p_x_ahl_mtl_txn_rec.ATTRIBUTE13 := NULL;
3659: END IF;
3660: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE12 = FND_API.G_MISS_CHAR) THEN
3661: p_x_ahl_mtl_txn_rec.ATTRIBUTE12 := NULL;
3662: END IF;
3663: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
3664: p_x_ahl_mtl_txn_rec.ATTRIBUTE13 := NULL;
3665: END IF;
3666: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
3667: p_x_ahl_mtl_txn_rec.ATTRIBUTE14 := NULL;
3662: END IF;
3663: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE13 = FND_API.G_MISS_CHAR) THEN
3664: p_x_ahl_mtl_txn_rec.ATTRIBUTE13 := NULL;
3665: END IF;
3666: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
3667: p_x_ahl_mtl_txn_rec.ATTRIBUTE14 := NULL;
3668: END IF;
3669: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
3670: p_x_ahl_mtl_txn_rec.ATTRIBUTE15 := NULL;
3665: END IF;
3666: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE14 = FND_API.G_MISS_CHAR) THEN
3667: p_x_ahl_mtl_txn_rec.ATTRIBUTE14 := NULL;
3668: END IF;
3669: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
3670: p_x_ahl_mtl_txn_rec.ATTRIBUTE15 := NULL;
3671: END IF;
3672:
3673: IF(p_x_ahl_mtl_txn_rec.transaction_reference = FND_API.G_MISS_CHAR) THEN
3669: IF(p_x_ahl_mtl_txn_rec.ATTRIBUTE15 = FND_API.G_MISS_CHAR) THEN
3670: p_x_ahl_mtl_txn_rec.ATTRIBUTE15 := NULL;
3671: END IF;
3672:
3673: IF(p_x_ahl_mtl_txn_rec.transaction_reference = FND_API.G_MISS_CHAR) THEN
3674: p_x_ahl_mtl_txn_rec.transaction_reference := NULL;
3675: END IF;
3676:
3677: IF G_DEBUG='Y' THEN
3693: p_organization_id => p_x_ahl_mtl_txn_rec.organization_id,
3694: p_x_mti_seglist => l_mti_seglist,
3695: x_return_status => x_return_status);
3696:
3697: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3698: RAISE FND_API.G_EXC_ERROR;
3699: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3700: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3701: END IF;
3694: p_x_mti_seglist => l_mti_seglist,
3695: x_return_status => x_return_status);
3696:
3697: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3698: RAISE FND_API.G_EXC_ERROR;
3699: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3700: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3701: END IF;
3702:
3695: x_return_status => x_return_status);
3696:
3697: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3698: RAISE FND_API.G_EXC_ERROR;
3699: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3700: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3701: END IF;
3702:
3703: END IF;
3696:
3697: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
3698: RAISE FND_API.G_EXC_ERROR;
3699: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3700: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3701: END IF;
3702:
3703: END IF;
3704:
3870: END IF;
3871:
3872: EXCEPTION
3873: WHEN OTHERS THEN
3874: x_return_status := FND_API.G_RET_STS_ERROR;
3875: IF G_DEBUG='Y' THEN
3876: AHL_DEBUG_PUB.debug('Exception inserting into mtl_txn interface' || SQLCODE);
3877: AHL_DEBUG_PUB.debug('SQLERRM:' || SQLERRM);
3878:
3881: FND_MESSAGE.Set_Token('MSG',SQLERRM);
3882: FND_MESSAGE.Set_Token('ITEM',p_x_ahl_mtl_txn_rec.Inventory_Item_Id);
3883: FND_MESSAGE.Set_Token('WO_NAME',p_x_ahl_mtl_txn_rec.workorder_id);
3884: FND_MSG_PUB.ADD;
3885: RAISE FND_API.G_EXC_ERROR;
3886:
3887: END INSERT_MTL_TXN_INTF;
3888:
3889: /* This is a funciton used by the front queries which
5266:
5267: --Material txns search api. Called from Material txn return UI.
5268: PROCEDURE GET_MTL_TRANS_RETURNS(
5269: p_api_version IN NUMBER := 1.0,
5270: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5271: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5272: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5273: p_default IN VARCHAR2 := FND_API.G_FALSE,
5274: p_module_type IN VARCHAR2 := NULL,
5267: --Material txns search api. Called from Material txn return UI.
5268: PROCEDURE GET_MTL_TRANS_RETURNS(
5269: p_api_version IN NUMBER := 1.0,
5270: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5271: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5272: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5273: p_default IN VARCHAR2 := FND_API.G_FALSE,
5274: p_module_type IN VARCHAR2 := NULL,
5275: x_return_status OUT NOCOPY VARCHAR2,
5268: PROCEDURE GET_MTL_TRANS_RETURNS(
5269: p_api_version IN NUMBER := 1.0,
5270: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5271: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5272: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5273: p_default IN VARCHAR2 := FND_API.G_FALSE,
5274: p_module_type IN VARCHAR2 := NULL,
5275: x_return_status OUT NOCOPY VARCHAR2,
5276: x_msg_count OUT NOCOPY NUMBER,
5269: p_api_version IN NUMBER := 1.0,
5270: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5271: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5272: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5273: p_default IN VARCHAR2 := FND_API.G_FALSE,
5274: p_module_type IN VARCHAR2 := NULL,
5275: x_return_status OUT NOCOPY VARCHAR2,
5276: x_msg_count OUT NOCOPY NUMBER,
5277: x_msg_data OUT NOCOPY VARCHAR2,
5346: -- Standard start of API savepoint
5347: SAVEPOINT GET_MTL_TRANS_RETURNS_PVT;
5348:
5349: -- Standard call to check for call compatibility
5350: IF NOT FND_API.Compatible_API_Call
5351: (l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5353: END IF;
5354: -- Initialize message list if p_init_msg_list is set to TRUE
5348:
5349: -- Standard call to check for call compatibility
5350: IF NOT FND_API.Compatible_API_Call
5351: (l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5353: END IF;
5354: -- Initialize message list if p_init_msg_list is set to TRUE
5355: IF FND_API.To_Boolean(p_init_msg_list) THEN
5356: FND_MSG_PUB.Initialize;
5351: (l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5353: END IF;
5354: -- Initialize message list if p_init_msg_list is set to TRUE
5355: IF FND_API.To_Boolean(p_init_msg_list) THEN
5356: FND_MSG_PUB.Initialize;
5357: END IF;
5358:
5359: -- Initialize API return status to success
5356: FND_MSG_PUB.Initialize;
5357: END IF;
5358:
5359: -- Initialize API return status to success
5360: x_return_status := FND_API.G_RET_STS_SUCCESS;
5361: IF(P_prd_Mtltxn_criteria_rec.DISPOSITION_NAME IS NULL)THEN
5362: getMtlTxnsReturns
5363: (
5364: p_x_ahl_prd_mtl_txn_tbl => x_ahl_mtltxn_tbl,
5433: END IF;
5434:
5435: --
5436: EXCEPTION
5437: WHEN FND_API.G_EXC_ERROR THEN
5438: x_return_status := FND_API.G_RET_STS_ERROR;
5439: Rollback to GET_MTL_TRANS_RETURNS_PVT;
5440: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5441: p_data => x_msg_data,
5434:
5435: --
5436: EXCEPTION
5437: WHEN FND_API.G_EXC_ERROR THEN
5438: x_return_status := FND_API.G_RET_STS_ERROR;
5439: Rollback to GET_MTL_TRANS_RETURNS_PVT;
5440: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5441: p_data => x_msg_data,
5442: p_encoded => fnd_api.g_false);
5438: x_return_status := FND_API.G_RET_STS_ERROR;
5439: Rollback to GET_MTL_TRANS_RETURNS_PVT;
5440: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5441: p_data => x_msg_data,
5442: p_encoded => fnd_api.g_false);
5443:
5444:
5445: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5441: p_data => x_msg_data,
5442: p_encoded => fnd_api.g_false);
5443:
5444:
5445: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5447: Rollback to GET_MTL_TRANS_RETURNS_PVT;
5448: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5449: p_data => x_msg_data,
5442: p_encoded => fnd_api.g_false);
5443:
5444:
5445: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5447: Rollback to GET_MTL_TRANS_RETURNS_PVT;
5448: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5449: p_data => x_msg_data,
5450: p_encoded => fnd_api.g_false);
5446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5447: Rollback to GET_MTL_TRANS_RETURNS_PVT;
5448: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5449: p_data => x_msg_data,
5450: p_encoded => fnd_api.g_false);
5451:
5452: WHEN OTHERS THEN
5453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5454: Rollback to GET_MTL_TRANS_RETURNS_PVT;
5449: p_data => x_msg_data,
5450: p_encoded => fnd_api.g_false);
5451:
5452: WHEN OTHERS THEN
5453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5454: Rollback to GET_MTL_TRANS_RETURNS_PVT;
5455: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5456: p_procedure_name => 'GET_MTL_TRANS_RETURNS',
5457: p_error_text => SQLERRM);
5456: p_procedure_name => 'GET_MTL_TRANS_RETURNS',
5457: p_error_text => SQLERRM);
5458: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5459: p_data => x_msg_data,
5460: p_encoded => fnd_api.g_false);
5461:
5462: END GET_MTL_TRANS_RETURNS;
5463:
5464: /*
5513:
5514: BEGIN
5515:
5516: -- initialize out parameters.
5517: x_return_status := FND_API.G_RET_STS_SUCCESS;
5518: x_reservation_flag := 'N';
5519:
5520: -- check if serial reservation exists against a different workorder.
5521: OPEN get_scheduled_mater_csr (p_ahl_mtl_txn_rec.serial_number,
5538: -- relieve reservation against l_demand_source_header_id.
5539:
5540: AHL_RSV_RESERVATIONS_PVT.RELIEVE_RESERVATION(
5541: p_api_version => 1.0,
5542: p_init_msg_list => FND_API.G_FALSE,
5543: p_commit => FND_API.G_FALSE,
5544: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5545: p_module_type => NULL,
5546: x_return_status => x_return_status,
5539:
5540: AHL_RSV_RESERVATIONS_PVT.RELIEVE_RESERVATION(
5541: p_api_version => 1.0,
5542: p_init_msg_list => FND_API.G_FALSE,
5543: p_commit => FND_API.G_FALSE,
5544: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5545: p_module_type => NULL,
5546: x_return_status => x_return_status,
5547: x_msg_count => l_msg_count,
5540: AHL_RSV_RESERVATIONS_PVT.RELIEVE_RESERVATION(
5541: p_api_version => 1.0,
5542: p_init_msg_list => FND_API.G_FALSE,
5543: p_commit => FND_API.G_FALSE,
5544: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5545: p_module_type => NULL,
5546: x_return_status => x_return_status,
5547: x_msg_count => l_msg_count,
5548: x_msg_data => l_msg_data,
5549: p_scheduled_material_id => l_schedule_material_id,
5550: p_serial_number => p_ahl_mtl_txn_rec.serial_number
5551: );
5552:
5553: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5555: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5556: RAISE FND_API.G_EXC_ERROR;
5557: END IF;
5550: p_serial_number => p_ahl_mtl_txn_rec.serial_number
5551: );
5552:
5553: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5555: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5556: RAISE FND_API.G_EXC_ERROR;
5557: END IF;
5558:
5551: );
5552:
5553: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5555: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5556: RAISE FND_API.G_EXC_ERROR;
5557: END IF;
5558:
5559: END IF; -- l_demand_source_header_id <>
5552:
5553: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
5554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5555: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
5556: RAISE FND_API.G_EXC_ERROR;
5557: END IF;
5558:
5559: END IF; -- l_demand_source_header_id <>
5560:
5638: x_msg_count => x_msg_count,
5639: x_msg_data => x_msg_data,
5640: x_return_status => x_return_status);
5641:
5642: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_x_material_txn_tbl.count > 0) THEN
5643: FOR i IN l_x_material_txn_tbl.FIRST..l_x_material_txn_tbl.LAST LOOP
5644:
5645: p_x_ahl_mtltxn_tbl(i).Workorder_Id := l_x_material_txn_tbl(i).Workorder_Id;
5646: p_x_ahl_mtltxn_tbl(i).Workorder_Name := l_x_material_txn_tbl(i).Workorder_Name;
5812: AHL_DEBUG_PUB.DEBUG('Start Procedure:Splitting locator concatenated segments:' || p_concat_segs, 'Get_MTL_LocatorSegs');
5813: END IF;
5814:
5815: -- initialize status to success.
5816: x_return_status := FND_API.G_RET_STS_SUCCESS;
5817:
5818: -- set mfg_organization_id profile - bug# 6010795.
5819: fnd_profile.put('MFG_ORGANIZATION_ID', p_organization_id);
5820:
5852: IF NOT(l_valid_flag) THEN
5853: FND_MESSAGE.Set_Name('AHL','AHL_INPUT_NUM_LOC_SEGS_INVALID');
5854: FND_MESSAGE.Set_Token('LOC_SEG',p_concat_segs);
5855: FND_MSG_PUB.ADD;
5856: x_return_status := FND_API.G_RET_STS_ERROR;
5857: RETURN;
5858: END IF;
5859:
5860: -- get IDs for the concatenated segments as MTI validates IDs.
5875: FND_MESSAGE.Set_Name('AHL','AHL_INPUT_NUM_LOC_SEGS_INVALID');
5876: FND_MESSAGE.Set_Token('LOC_NUM',l_flex_nseg);
5877: FND_MESSAGE.Set_Token('LOC_SEG',p_concat_segs);
5878: FND_MSG_PUB.ADD;
5879: x_return_status := FND_API.G_RET_STS_ERROR;
5880: RETURN;
5881: END IF;
5882: */
5883: