[Home] [Help]
301: IF WORKORDER_CUR%NOTFOUND
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;
322: END IF; -- WORKORDER_CUR%NOTFOUND
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);
332: IF WORKORDER_ID_CUR%NOTFOUND
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
342: L_WORKDET_REC.JOB_STATUS_CODE<>'4' -- complete
343: THEN
344: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_JOB_STATUS');
345: FND_MESSAGE.Set_Token('STATUS',L_WORKDET_ID_REC.job_status_meaning);
346: FND_MSG_PUB.ADD;
347: ELSE
348: p_x_ahl_mtltxn_rec.Workorder_Id := L_WORKDET_ID_REC.WORKORDER_ID;
349: p_x_ahl_mtltxn_rec.Workorder_Status := L_WORKDET_ID_REC.JOB_STATUS_MEANING;
350: p_x_ahl_mtltxn_rec.Workorder_Status_Code := L_WORKDET_ID_REC.JOB_STATUS_CODE;
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;
364:
365: -- Check for errors.
377: FETCH WIP_JOB_ID_CUR INTO p_x_ahl_mtltxn_rec.Wip_Entity_Id,p_x_ahl_mtltxn_rec.Organization_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;
404: IF(WO_OP_CUR%NOTFOUND) THEN
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;
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
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 ;
430: FETCH Transaction_Type_Cur INTO p_x_ahl_mtltxn_rec.Transaction_Type_Id ;
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;
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
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;
487: IF(Location_Cur%NOTFOUND)
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
519: FETCH Reason_Cur INTO p_x_ahl_mtltxn_rec.Reason_Id ;
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;
548: FETCH Fnd_Lookups_Cur INTO p_x_ahl_mtltxn_rec.Problem_Code ;
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;
569:
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;
601: ELSE
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;
623: ELSE
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)
638: ELSE
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.
660: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_MANDATORY2');
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;
674: ELSE
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;
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
698: OPEN Uom_Cur(p_x_ahl_mtltxn_rec.Uom_Desc);
699: FETCH Uom_Cur INTO p_x_ahl_mtltxn_rec.Uom ;
699: FETCH Uom_Cur INTO p_x_ahl_mtltxn_rec.Uom ;
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;
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
864: x_return_status := FND_API.G_RET_STS_SUCCESS;
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
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');
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
916: */
917: IF G_DEBUG='Y' THEN
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;
1031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1032: END IF;
1033: --END IF; -- fix for bug# 5499575
1034:
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;
1091: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1092: END IF;
1093:
1114: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
1115: FND_MESSAGE.Set_Token('MSG',l_error_msg);
1116: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
1117: FND_MESSAGE.Set_Token('WO_NAME',l_workorder_name);
1118: FND_MSG_PUB.ADD;
1119: l_error := true;
1120: END IF;
1121: CLOSE Txn_Error_cur;
1122: END LOOP;
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
1135:
1161: THEN
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
1176: If(Sch_Mtl_Cur%NOTFOUND) THEN
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
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;
1285: END IF;
1286:
1287: p_x_ahl_mtltxn_tbl(i).ahl_mtltxn_id := l_x_Mtl_Txn_Id;
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;
1435: END IF;
1436: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1437: 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
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:
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,
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,
1486: p_data => x_msg_data,
1487: p_encoded => fnd_api.g_false);
1488:
1489: WHEN OTHERS THEN
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',
1495: p_error_text => SQLERRM);
1496: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1497: p_data => x_msg_data,
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',
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;
1631: IF L_COUNTER >0
1632: THEN
1633: FND_MESSAGE.Set_Name('AHL','AHL_PRD_DUPLICATE_ITEM');
1634: FND_MESSAGE.Set_Token('INV_ITEM',p_ahl_mtltxn_rec.INVENTORY_ITEM_SEGMENTS);
1635: FND_MSG_PUB.ADD;
1636: END IF;
1637: CLOSE GET_WO_MTL_TXNS;
1638: END;
1639:
1941: -- Validate transaction type id(should be one of wip conponent issue or return
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.
1953:
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
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;
1984: x_return_status := FND_API.G_RET_STS_ERROR;
1985: CLOSE AHL_WIPJOB_CUR;
1986: RETURN;
1987: ELSE
2001: AND l_job_status <> C_JOB_COMPLETE
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;
2023: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WORKORDER_OP');
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:
2057: IF L_SCHED_START_DATE > p_x_ahl_mtltxn_rec.TRANSACTION_DATE
2058: THEN
2059: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_TRANSACTION_DATE');
2060: --FND_MESSAGE.Set_Token('FIELD',p_x_ahl_mtltxn_rec.Inventory_Item_Id);
2061: FND_MSG_PUB.ADD;
2062:
2063: END IF;
2064: END IF;
2065: CLOSE TRANSACTION_DATE_CUR;
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;
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;
2103: p_project_locator_id => l_project_locator_id);
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;
2113: ELSE
2114: -- move_to_project_flag error.
2115: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MOVEPRJ_FLAG_INVALID');
2116: FND_MSG_PUB.ADD;
2117: END IF;
2118:
2119: END IF; -- p_x_ahl_mtltxn_rec.Locator_Id.move_to_project_flag = 'Y'
2120:
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);
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
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);
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.
2196: IF (create_wo_cur%NOTFOUND) THEN
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;
2213: IF (p_x_ahl_mtltxn_rec.create_wo_option = 'CREATE_WO_NO') THEN
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;
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);
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
2246: IF (mtl_lot_num_csr%NOTFOUND) THEN
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;
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;
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
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;
2285: x_return_status := FND_API.G_RET_STS_ERROR;
2286: END IF;
2287: ELSE
2288: ****************************************************************/
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;
2302: x_return_status := FND_API.G_RET_STS_ERROR;
2303: END IF;
2304: CLOSE AHL_LOCATOR_CUR;
2305: END IF;
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);
2321: FND_MSG_PUB.ADD;
2322: x_return_status := FND_API.G_RET_STS_ERROR;
2323: ELSE
2324: OPEN AHL_REVISION_CUR
2325: (
2332: THEN
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;
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);
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
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');
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;
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;
2378: x_return_status := FND_API.G_RET_STS_ERROR;
2379: END IF;
2380: CLOSE Condition_Cur;
2381:
2431: OPEN CSI_LOCATION_CUR(p_x_ahl_mtltxn_rec.Organization_Id);
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
2530: 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:
2579: --l_wip_location);
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;
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;
2624: END IF;
2625: END IF;
2626:
2635: FETCH PROBLEM_CODE_LKUP_CUR INTO l_count;
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;
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;
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;
2687: IF (l_quantity <> 1) 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.
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);
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
2745: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOC_CODE');
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.
2753: -- serial number not found.
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;
2783: AHL_DEBUG_PUB.debug('Error in txn date');
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;
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;
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') ||']');
2813: END IF;
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;
2845: FETCH disposition_cur INTO l_disposition_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
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;
3099: END IF;
3100:
3101: IF(p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR AND
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;
3156: END IF;
3157: IF G_DEBUG='Y' THEN
3158: AHL_DEBUG_PUB.debug('inserting in msnt..');
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;
3177: END IF;
3178:
3179: ELSIF (p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR AND
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;
3211: END IF;
3212:
3213: ELSIF (p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR AND
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;
3245: END IF;
3246: END IF;
3247: END INSERT_MTL_TXN_TEMP;
3326: OPEN Workop_Det_Cur( p_mtl_txn_Rec.Workorder_Id);
3327: FETCH Workop_Det_Cur INTO l_Visit_Id,l_visit_task_Id,l_project_id,l_project_Task_id;
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;
3346: FETCH Item_Desc_Cur INTO l_Item_Desc;
3347: IF(Item_Desc_Cur%NOTFOUND) THEN
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;
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;
3434: END IF;
3435:
3436: /* will be updated after wip api is successful - modified for bug fix 5499575.
3880: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
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:
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
5360: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
5443:
5444:
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);
5451:
5452: WHEN OTHERS THEN
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);
5458: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5459: p_data => x_msg_data,
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);
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;
5476: IF CLREC.error_code IS NOT NULL
5477: THEN
5478: FND_MESSAGE.Set_Name('AHL','AHL_COM_GENERIC_ERROR');
5479: FND_MESSAGE.Set_Token('MESSAGE',CLREC.error_code);
5480: FND_MSG_PUB.ADD;
5481: END IF;
5482: END LOOP;
5483: end;
5484: */
5851:
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:
5874:
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: */