[Home] [Help]
312: IF WORKORDER_CUR%NOTFOUND
313: THEN
314: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WORKORDER');
315: FND_MESSAGE.Set_Token('WORKORDER',p_x_ahl_mtltxn_rec.Workorder_name);
316: FND_MSG_PUB.ADD;
317: x_return_status := Fnd_Api.G_RET_STS_ERROR;
318: -- fix for re-open issue in bug# 6773241
319: ELSIF L_WORKDET_REC.JOB_STATUS_CODE<>'3' AND
320: --L_WORKDET_REC.JOB_STATUS_CODE<>'19' AND
322: --L_WORKDET_REC.JOB_STATUS_CODE<>'6' AND
323: L_WORKDET_REC.JOB_STATUS_CODE<>'4' THEN
324: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_JOB_STATUS');
325: FND_MESSAGE.Set_Token('STATUS',L_WORKDET_REC.job_status_meaning);
326: FND_MSG_PUB.ADD;
327: x_return_status := Fnd_Api.G_RET_STS_ERROR;
328: ELSE
329: p_x_ahl_mtltxn_rec.Workorder_Id :=L_WORKDET_REC.WORKORDER_ID;
330: p_x_ahl_mtltxn_rec.Workorder_Status :=L_WORKDET_REC.JOB_STATUS_MEANING;
334: END IF; -- WORKORDER_CUR%NOTFOUND
335: CLOSE WORKORDER_CUR;
336: ELSE -- both Workorder_Id and WORKORDER_NAME are NULLs
337: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_WORKORDER_ID');
338: FND_MSG_PUB.ADD;
339: x_return_status := Fnd_Api.G_RET_STS_ERROR;
340: END IF; -- p_x_ahl_mtltxn_rec.WORKORDER_NAME
341: ELSE -- workorderId is not null.
342: OPEN WORKORDER_ID_CUR(p_x_ahl_mtltxn_rec.Workorder_Id);
344: IF WORKORDER_ID_CUR%NOTFOUND
345: THEN
346: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WORKORDER');
347: FND_MESSAGE.Set_Token('WORKORDER',p_x_ahl_mtltxn_rec.Workorder_Id);
348: FND_MSG_PUB.ADD;
349: x_return_status := Fnd_Api.G_RET_STS_ERROR;
350: -- fix for re-open issue in bug# 6773241
351: ELSIF L_WORKDET_ID_REC.JOB_STATUS_CODE<>'3' AND -- Released
352: --L_WORKDET_ID_REC.JOB_STATUS_CODE<>'19' AND -- Parts Hold
355: L_WORKDET_ID_REC.JOB_STATUS_CODE<>'4' -- complete
356: THEN
357: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_JOB_STATUS');
358: FND_MESSAGE.Set_Token('STATUS',L_WORKDET_ID_REC.job_status_meaning);
359: FND_MSG_PUB.ADD;
360: x_return_status := Fnd_Api.G_RET_STS_ERROR;
361: ELSE
362: p_x_ahl_mtltxn_rec.Workorder_Id := L_WORKDET_ID_REC.WORKORDER_ID;
363: p_x_ahl_mtltxn_rec.Workorder_Status := L_WORKDET_ID_REC.JOB_STATUS_MEANING;
371: -- Check for operation sequence number.
372: IF ( p_x_ahl_mtltxn_rec.Operation_Seq_num IS NULL
373: OR p_x_ahl_mtltxn_rec.Operation_Seq_num = FND_API.G_MISS_NUM) THEN
374: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_OPER_SEQ');
375: FND_MSG_PUB.ADD;
376: x_return_status := Fnd_Api.G_RET_STS_ERROR;
377: END IF;
378:
379: -- Check for errors.
391: FETCH WIP_JOB_ID_CUR INTO p_x_ahl_mtltxn_rec.Wip_Entity_Id,p_x_ahl_mtltxn_rec.Organization_Id ;
392: IF(WIP_JOB_ID_CUR%NOTFOUND) THEN
393: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WIP_ENTITY_WO');
394: FND_MESSAGE.Set_Token('WORKORDER',p_x_ahl_mtltxn_rec.Workorder_Id);
395: FND_MSG_PUB.ADD;
396: x_return_status := Fnd_Api.G_RET_STS_ERROR;
397: END IF;
398: CLOSE WIP_JOB_ID_CUR;
399: END IF;
418: IF(WO_OP_CUR%NOTFOUND) THEN
419: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WO_OP');
420: FND_MESSAGE.Set_Token('WORKORDER',p_x_ahl_mtltxn_rec.Workorder_Id);
421: FND_MESSAGE.Set_Token('OP_SEQUENCE',p_x_ahl_mtltxn_rec.Operation_Seq_num);
422: FND_MSG_PUB.ADD;
423: x_return_status := Fnd_Api.G_RET_STS_ERROR;
424: END IF;
425: CLOSE WO_OP_CUR;
426: END IF;
436: END IF;
437: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Name IS NULL
438: OR p_x_ahl_mtltxn_rec.Transaction_Type_Name = FND_API.G_MISS_CHAR) THEN
439: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_TXN_TYPE');
440: FND_MSG_PUB.ADD;
441: x_return_status := Fnd_Api.G_RET_STS_ERROR;
442: ELSE
443: OPEN Transaction_Type_Cur(p_x_ahl_mtltxn_rec.Transaction_Type_Name);
444: FETCH Transaction_Type_Cur INTO p_x_ahl_mtltxn_rec.Transaction_Type_Id ;
444: FETCH Transaction_Type_Cur INTO p_x_ahl_mtltxn_rec.Transaction_Type_Id ;
445: IF(Transaction_Type_Cur%NOTFOUND) THEN
446: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_TXN_TYPE');
447: FND_MESSAGE.Set_Token('TXN_TYPE',p_x_ahl_mtltxn_rec.Transaction_Type_Name);
448: FND_MSG_PUB.ADD;
449: x_return_status := Fnd_Api.G_RET_STS_ERROR;
450: END IF;
451: CLOSE Transaction_Type_Cur;
452: END IF;
463:
464: IF (p_x_ahl_mtltxn_rec.Inventory_Item_Segments IS NULL
465: OR p_x_ahl_mtltxn_rec.Inventory_Item_Segments = FND_API.G_MISS_CHAR) THEN
466: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_ITEM');
467: FND_MSG_PUB.ADD;
468: RAISE FND_API.G_EXC_ERROR;
469: ELSE
470: OPEN Item_Cur(p_x_ahl_mtltxn_rec.Organization_Id,
471: p_x_ahl_mtltxn_rec.Inventory_Item_Segments);
472: FETCH Item_Cur INTO p_x_ahl_mtltxn_rec.Inventory_Item_Id ;
473: IF(Item_Cur%NOTFOUND) THEN
474: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_ITEM');
475: FND_MESSAGE.Set_Token('FIELD',p_x_ahl_mtltxn_rec.Inventory_Item_Segments);
476: FND_MSG_PUB.ADD;
477: x_return_status := Fnd_Api.G_RET_STS_ERROR;
478: END IF;
479: CLOSE Item_Cur;
480: END IF;
501: IF(Location_Cur%NOTFOUND)
502: THEN
503: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOCATION');
504: FND_MESSAGE.Set_Token('LOCATOR',p_x_ahl_mtltxn_rec.Locator_Segments);
505: FND_MSG_PUB.ADD;
506: x_return_status := Fnd_Api.G_RET_STS_ERROR;
507: ELSE
508: */
509: IF (Location_Cur%FOUND) THEN
533: FETCH Reason_Cur INTO p_x_ahl_mtltxn_rec.Reason_Id ;
534: IF(Reason_Cur%NOTFOUND) THEN
535: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_REASON');
536: FND_MESSAGE.Set_Token('REASON',p_x_ahl_mtltxn_rec.Reason_Name);
537: FND_MSG_PUB.ADD;
538: x_return_status := Fnd_Api.G_RET_STS_ERROR;
539: END IF;
540: CLOSE Reason_Cur;
541: END IF;
562: FETCH Fnd_Lookups_Cur INTO p_x_ahl_mtltxn_rec.Problem_Code ;
563: IF(Fnd_Lookups_Cur%NOTFOUND) THEN
564: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PROBLEM_CODE_INVALID');
565: FND_MESSAGE.Set_Token('CODE',p_x_ahl_mtltxn_rec.Problem_Code_Meaning);
566: FND_MSG_PUB.ADD;
567: x_return_status := Fnd_Api.G_RET_STS_ERROR;
568: END IF;
569: CLOSE Fnd_Lookups_Cur;
570: END IF;
583:
584: IF(CONDITION_CUR%NOTFOUND) THEN
585: FND_MESSAGE.Set_Name('AHL','AHL_PRD_COND_INVALID');
586: FND_MESSAGE.Set_Token('CODE',p_x_ahl_mtltxn_rec.Condition_Desc);
587: FND_MSG_PUB.ADD;
588: x_return_status := Fnd_Api.G_RET_STS_ERROR;
589: END IF;
590:
591: CLOSE CONDITION_CUR;
615: ELSE
616: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_INVALID');
617: END IF;
618: FND_MESSAGE.Set_Token('RECEPIENT',p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
619: FND_MSG_PUB.ADD;
620: x_return_status := Fnd_Api.G_RET_STS_ERROR;
621: END IF;
622: CLOSE RECEPIENT_CUR;
623: END IF;
637: ELSE
638: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_INVALID');
639: END IF;
640: FND_MESSAGE.Set_Token('RECEPIENT',p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
641: FND_MSG_PUB.ADD;
642: x_return_status := Fnd_Api.G_RET_STS_ERROR;
643: ELSE
644: -- if id is available then see if this id is the same as the one retrived from the name.
645: IF(p_x_ahl_mtltxn_rec.recepient_id IS NOT NULL AND p_x_ahl_mtltxn_rec.recepient_id <> FND_API.G_MISS_NUM)
652: ELSE
653: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_INVALID');
654: END IF;
655: FND_MESSAGE.Set_Token('RECEPIENT',p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
656: FND_MSG_PUB.ADD;
657: x_return_status := Fnd_Api.G_RET_STS_ERROR;
658: END IF;
659: ELSE
660: -- if id is not available then populate the id with the id retrived.
674: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_MANDATORY2');
675: ELSE
676: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_MANDATORY');
677: END IF;
678: FND_MSG_PUB.ADD;
679: x_return_status := Fnd_Api.G_RET_STS_ERROR;
680: ELSE
681: OPEN DEFAULT_USER_CUR;
682: FETCH DEFAULT_USER_CUR INTO p_x_ahl_mtltxn_rec.RECEPIENT_ID;
688: ELSE
689: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTX_PERSON_INVALID');
690: END IF;
691: FND_MESSAGE.Set_Token('RECEPIENT',p_x_ahl_mtltxn_rec.RECEPIENT_NAME);
692: FND_MSG_PUB.ADD;
693: x_return_status := Fnd_Api.G_RET_STS_ERROR;
694: END IF;
695: CLOSE DEFAULT_USER_CUR;
696: END IF;
705: END IF;
706: IF (p_x_ahl_mtltxn_rec.Uom_Desc IS NULL
707: OR p_x_ahl_mtltxn_rec.Uom_Desc = FND_API.G_MISS_CHAR) THEN
708: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_UOM');
709: FND_MSG_PUB.ADD;
710: x_return_status := Fnd_Api.G_RET_STS_ERROR;
711: ELSE
712: OPEN Uom_Cur(p_x_ahl_mtltxn_rec.Uom_Desc);
713: FETCH Uom_Cur INTO p_x_ahl_mtltxn_rec.Uom ;
713: FETCH Uom_Cur INTO p_x_ahl_mtltxn_rec.Uom ;
714: IF(Uom_Cur%NOTFOUND) THEN
715: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_UOM');
716: FND_MESSAGE.Set_Token('UOM',p_x_ahl_mtltxn_rec.Uom_Desc);
717: FND_MSG_PUB.ADD;
718: x_return_status := Fnd_Api.G_RET_STS_ERROR;
719: END IF;
720: CLOSE Uom_Cur;
721: END IF;
937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
938: END IF;
939: -- Initialize message list if p_init_msg_list is set to TRUE
940: IF FND_API.To_Boolean(p_init_msg_list) THEN
941: FND_MSG_PUB.Initialize;
942: END IF;
943:
944: -- Initialize API return status to success
945: x_return_status := FND_API.G_RET_STS_SUCCESS;
994: --Check the context fields
995: IF ( (p_x_ahl_mtltxn_tbl(i).Workorder_Id IS NULL
996: OR p_x_ahl_mtltxn_tbl(i).Workorder_Id = FND_API.G_MISS_NUM)) THEN
997: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_WORKORDER_ID');
998: FND_MSG_PUB.ADD;
999: l_error := true;
1000: ELSIF ( p_x_ahl_mtltxn_tbl(i).Operation_Seq_num IS NULL
1001: OR p_x_ahl_mtltxn_tbl(i).Operation_Seq_num = FND_API.G_MISS_NUM) THEN
1002: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_OPER_SEQ');
999: l_error := true;
1000: ELSIF ( p_x_ahl_mtltxn_tbl(i).Operation_Seq_num IS NULL
1001: OR p_x_ahl_mtltxn_tbl(i).Operation_Seq_num = FND_API.G_MISS_NUM) THEN
1002: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NULL_OPER_SEQ');
1003: FND_MSG_PUB.ADD;
1004: l_error := true;
1005: ELSE
1006: */
1007: IF G_DEBUG='Y' THEN
1116: OR x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1117: CLOSE Sch_Mtl_Exists_Cur;
1118: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTLAPI_ERROR');
1119: FND_MESSAGE.Set_Token('MSG',x_msg_data);
1120: FND_MSG_PUB.ADD;
1121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: END IF;
1123: --END IF; -- fix for bug# 5499575
1124:
1178: --IF(x_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR FND_API.G_RET_STS_ERROR ) THEN
1179: --IF(x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1180: IF G_DEBUG='Y' THEN
1181: -- AHL_DEBUG_PUB.debug('wip_mtlInterfaceProc_pub.processInterface....errored');
1182: -- AHL_DEBUG_PUB.debug('count of error msgs: ' || FND_MSG_PUB.COUNT_MSG);
1183: AHL_DEBUG_PUB.debug('After call to wip_mtlInterfaceProc_pub.processInterface...x_return_status[' || x_return_status ||']');
1184: AHL_DEBUG_PUB.debug('count of msgs: ' || FND_MSG_PUB.COUNT_MSG);
1185: END IF;
1186: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1180: IF G_DEBUG='Y' THEN
1181: -- AHL_DEBUG_PUB.debug('wip_mtlInterfaceProc_pub.processInterface....errored');
1182: -- AHL_DEBUG_PUB.debug('count of error msgs: ' || FND_MSG_PUB.COUNT_MSG);
1183: AHL_DEBUG_PUB.debug('After call to wip_mtlInterfaceProc_pub.processInterface...x_return_status[' || x_return_status ||']');
1184: AHL_DEBUG_PUB.debug('count of msgs: ' || FND_MSG_PUB.COUNT_MSG);
1185: END IF;
1186: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1187: --END IF;
1188:
1212: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
1213: FND_MESSAGE.Set_Token('MSG',l_error_msg);
1214: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
1215: FND_MESSAGE.Set_Token('WO_NAME',l_workorder_name);
1216: FND_MSG_PUB.ADD;
1217: l_error := true;
1218: END IF;
1219: CLOSE m_Txn_Error_cur;
1220:
1234: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
1235: FND_MESSAGE.Set_Token('MSG',l_error_msg);
1236: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
1237: FND_MESSAGE.Set_Token('WO_NAME',l_workorder_name);
1238: FND_MSG_PUB.ADD;
1239: l_error := true;
1240: END IF;
1241: CLOSE Txn_Error_cur;
1242: END IF;
1245:
1246: --IF(l_error ) THEN
1247: IF(l_error) OR (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1248: AHL_DEBUG_PUB.debug('wip_mtlInterfaceProc_pub.processInterface....errored');
1249: AHL_DEBUG_PUB.debug('count of error msgs: ' || FND_MSG_PUB.COUNT_MSG);
1250: RAISE FND_API.G_EXC_ERROR;
1251: END IF;
1252:
1253: -- No errors returned by WIP API.Initialize message list to
1252:
1253: -- No errors returned by WIP API.Initialize message list to
1254: -- remove 'Txn success' message.
1255: IF FND_API.To_Boolean(p_init_msg_list) THEN
1256: FND_MSG_PUB.Initialize;
1257: END IF;
1258:
1259: FOR i IN l_txn_Id_Tbl.FIRST..l_txn_Id_Tbl.LAST LOOP
1260:
1286: THEN
1287: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UOMCONVERT_ERROR');
1288: FND_MESSAGE.Set_Token('UOM_FROM', p_x_ahl_mtltxn_tbl(i).uom);
1289: FND_MESSAGE.Set_Token('UOM_TO', l_uom_code);
1290: FND_MSG_PUB.ADD;
1291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1292: END IF;
1293: END IF;
1294: -- Tamal: Bug #4095376: End
1301: If(Sch_Mtl_Cur%NOTFOUND) THEN
1302: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTL_NOTFOUND');
1303: FND_MESSAGE.Set_Token('WO_OP',p_x_ahl_mtltxn_tbl(i).Workorder_operation_Id);
1304: FND_MESSAGE.Set_Token('INV_ITEM',p_x_ahl_mtltxn_tbl(i).Inventory_Item_Id);
1305: FND_MSG_PUB.ADD;
1306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1307: ELSE
1308:
1309: IF G_DEBUG='Y' THEN
1404: IF (x_return_status = FND_API.G_RET_STS_ERROR
1405: OR x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1406: FND_MESSAGE.Set_Name('AHL','AHL_PRD_AHLMTLTXN_ERROR');
1407: FND_MESSAGE.Set_Token('MSG',x_msg_data);
1408: FND_MSG_PUB.ADD;
1409: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1410: END IF;
1411:
1412: p_x_ahl_mtltxn_tbl(i).ahl_mtltxn_id := l_x_Mtl_Txn_Id;
1718:
1719: IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
1720: IF ( x_msg_data IS NULL ) THEN
1721: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_QA_ACTION_UNEXP_ERROR' );
1722: FND_MSG_PUB.add;
1723: RAISE FND_API.G_EXC_ERROR;
1724: END IF;
1725: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1750: END IF;
1751: END IF;
1752:
1753: -- Standard call to get message count and if count is 1, get message
1754: FND_MSG_PUB.Count_And_Get
1755: ( p_count => x_msg_count,
1756: p_data => x_msg_data,
1757: p_encoded => fnd_api.g_false);
1758:
1761: WHEN FND_API.G_EXC_ERROR THEN
1762: x_return_status := FND_API.G_RET_STS_ERROR;
1763: --SHOW_MTX_ERRORS;
1764: Rollback to PERFORM_MTL_TXN_PVT;
1765: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1766: p_data => x_msg_data,
1767: p_encoded => fnd_api.g_false);
1768:
1769:
1770: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1771: --SHOW_MTX_ERRORS;
1772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1773: Rollback to PERFORM_MTL_TXN_PVT;
1774: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1775: p_data => x_msg_data,
1776: p_encoded => fnd_api.g_false);
1777:
1778: WHEN OTHERS THEN
1778: WHEN OTHERS THEN
1779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1780: --SHOW_MTX_ERRORS;
1781: Rollback to PERFORM_MTL_TXN_PVT;
1782: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1783: p_procedure_name => 'Perform_Mtl_txn',
1784: p_error_text => SQLERRM);
1785: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1786: p_data => x_msg_data,
1781: Rollback to PERFORM_MTL_TXN_PVT;
1782: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1783: p_procedure_name => 'Perform_Mtl_txn',
1784: p_error_text => SQLERRM);
1785: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1786: p_data => x_msg_data,
1787: p_encoded => fnd_api.g_false);
1788:
1789: END PERFORM_MTL_TXN;
1920: IF L_COUNTER >0
1921: THEN
1922: FND_MESSAGE.Set_Name('AHL','AHL_PRD_DUPLICATE_ITEM');
1923: FND_MESSAGE.Set_Token('INV_ITEM',p_ahl_mtltxn_rec.INVENTORY_ITEM_SEGMENTS);
1924: FND_MSG_PUB.ADD;
1925: END IF;
1926: CLOSE GET_WO_MTL_TXNS;
1927: END;
1928:
2297: -- Validate transaction type id(should be one of wip conponent issue or return
2298: IF(p_x_ahl_mtltxn_rec.Transaction_Type_Id <> WIP_CONSTANTS.RETCOMP_TYPE AND
2299: p_x_ahl_mtltxn_rec.Transaction_Type_Id <> WIP_CONSTANTS.ISSCOMP_TYPE ) THEN
2300: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_TXNTYPE');
2301: FND_MSG_PUB.ADD;
2302: x_return_status := FND_API.G_RET_STS_ERROR;
2303: END IF;
2304: -- transaction quantity should be +ve always. Negative quantities are not
2305: -- supported currently.
2309:
2310: IF(nvl(p_x_ahl_mtltxn_rec.Quantity,0) <= 0) THEN
2311: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_QTY');
2312: FND_MESSAGE.Set_Token('QUANTITY',p_x_ahl_mtltxn_rec.Quantity);
2313: FND_MSG_PUB.ADD;
2314: x_return_status := FND_API.G_RET_STS_ERROR;
2315: END IF;
2316:
2317: IF G_DEBUG='Y' THEN
2335: if(p_x_ahl_mtltxn_rec.Wip_Entity_Id = FND_API.G_MISS_NUM) THEN
2336: p_x_ahl_mtltxn_rec.Wip_Entity_Id := NULL;
2337: END IF;
2338: FND_MESSAGE.Set_Token('WIP_ENTITY',p_x_ahl_mtltxn_rec.Wip_Entity_Id);
2339: FND_MSG_PUB.ADD;
2340: x_return_status := FND_API.G_RET_STS_ERROR;
2341: CLOSE AHL_WIPJOB_CUR;
2342: RETURN;
2343: ELSE
2361: ) THEN
2362: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_JOB_STATUS');
2363: --FND_MESSAGE.Set_Token('STATUS',l_job_status);
2364: FND_MESSAGE.Set_Token('STATUS', p_x_ahl_mtltxn_rec.Workorder_Status);
2365: FND_MSG_PUB.ADD;
2366: x_return_status := FND_API.G_RET_STS_ERROR;
2367: END IF;
2368: ELSE
2369: -- issue case.
2374: ) THEN
2375: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_JOB_STATUS');
2376: --FND_MESSAGE.Set_Token('STATUS',l_job_status);
2377: FND_MESSAGE.Set_Token('STATUS', p_x_ahl_mtltxn_rec.Workorder_Status);
2378: FND_MSG_PUB.ADD;
2379: x_return_status := FND_API.G_RET_STS_ERROR;
2380: END IF;
2381: END IF;
2382: END IF;
2397: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WORKORDER_OP');
2398: FND_MESSAGE.Set_Token('WO',p_x_ahl_mtltxn_rec.Workorder_Id);
2399: FND_MESSAGE.Set_Token('SEQ',p_x_ahl_mtltxn_rec.Operation_Seq_Num);
2400: FND_MESSAGE.Set_Token('OP',p_x_ahl_mtltxn_rec.Workorder_Operation_Id);
2401: FND_MSG_PUB.ADD;
2402: x_return_status := FND_API.G_RET_STS_ERROR;
2403: END IF;
2404: CLOSE AHL_WORKORDER_OPER_CUR;
2405:
2431: IF L_SCHED_START_DATE > p_x_ahl_mtltxn_rec.TRANSACTION_DATE
2432: THEN
2433: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_TRANSACTION_DATE');
2434: --FND_MESSAGE.Set_Token('FIELD',p_x_ahl_mtltxn_rec.Inventory_Item_Id);
2435: FND_MSG_PUB.ADD;
2436:
2437: END IF;
2438: END IF;
2439: CLOSE TRANSACTION_DATE_CUR;
2451: if(p_x_ahl_mtltxn_rec.Inventory_Item_Id = FND_API.G_MISS_NUM) THEN
2452: p_x_ahl_mtltxn_rec.Inventory_Item_Id := NULL;
2453: END IF;
2454: FND_MESSAGE.Set_Token('FIELD',p_x_ahl_mtltxn_rec.Inventory_Item_Id);
2455: FND_MSG_PUB.ADD;
2456: x_return_status := FND_API.G_RET_STS_ERROR;
2457: CLOSE AHL_ITEM_ID_CUR;
2458: -- Skip the rest of the validations.
2459: RETURN;
2477: p_project_locator_id => l_project_locator_id);
2478: IF (l_project_locator_id IS NULL) THEN
2479: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOCATOR');
2480: FND_MESSAGE.Set_Token('LOC',l_inv_locator_id);
2481: FND_MSG_PUB.ADD;
2482: RAISE FND_API.G_EXC_ERROR;
2483: ELSE
2484: p_x_ahl_mtltxn_rec.locator_id := l_project_locator_id;
2485: p_x_ahl_mtltxn_rec.subinventory_name := l_subinventory_code;
2486: END IF;
2487: ELSE
2488: -- move_to_project_flag error.
2489: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MOVEPRJ_FLAG_INVALID');
2490: FND_MSG_PUB.ADD;
2491: END IF;
2492:
2493: END IF; -- p_x_ahl_mtltxn_rec.Locator_Id.move_to_project_flag = 'Y'
2494:
2533: AND (nvl(l_serial_Control,0) <> nvl(C_NO_SERIAL_CONTROL,0)) ) THEN
2534: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SRLNUM');
2535: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
2536: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2537: FND_MSG_PUB.ADD;
2538: x_return_status := FND_API.G_RET_STS_ERROR;
2539: END IF;
2540:
2541: IF (p_x_ahl_mtltxn_rec.Serial_Number IS NOT NULL AND
2543: nvl(l_serial_Control,1) = 1) THEN
2544: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SRLNUM_NOTMAND');
2545: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
2546: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2547: FND_MSG_PUB.ADD;
2548: x_return_status := FND_API.G_RET_STS_ERROR;
2549: END IF;
2550:
2551: -- Added for FP bug# 5903318.
2570: IF (create_wo_cur%NOTFOUND) THEN
2571: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INV_LOOKUP');
2572: FND_MESSAGE.Set_Token('LCODE',p_x_ahl_mtltxn_rec.create_wo_option);
2573: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2574: FND_MSG_PUB.ADD;
2575: x_return_status := FND_API.G_RET_STS_ERROR;
2576: END IF;
2577: CLOSE create_wo_cur;
2578: END IF;
2587: IF (p_x_ahl_mtltxn_rec.create_wo_option = 'CREATE_WO_NO') THEN
2588: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NONSRL_WO_OPT');
2589: FND_MESSAGE.Set_Token('WO_OPT',l_fnd_meaning);
2590: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2591: FND_MSG_PUB.ADD;
2592: x_return_status := FND_API.G_RET_STS_ERROR;
2593: END IF;
2594: END IF;
2595: END IF;
2600: OPEN service_type_code_cur( p_x_ahl_mtltxn_rec.service_type);
2601: FETCH service_type_code_cur INTO p_x_ahl_mtltxn_rec.service_type_code;
2602: IF(service_type_code_cur%NOTFOUND) THEN
2603: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SERVICE_TYPE_INVALID');
2604: FND_MSG_PUB.ADD;
2605: END IF;
2606: CLOSE service_type_code_cur;
2607: ELSIF(p_x_ahl_mtltxn_rec.service_type = FND_API.G_MISS_CHAR) THEN
2608: p_x_ahl_mtltxn_rec.service_type_code := NULL;
2618: AND (l_lot_Control <> C_NO_LOT_CONTROL) ) THEN
2619: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOT');
2620: FND_MESSAGE.Set_Token('LOT',p_x_ahl_mtltxn_rec.Lot_Number);
2621: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2622: FND_MSG_PUB.ADD;
2623: x_return_status := FND_API.G_RET_STS_ERROR;
2624: END IF;
2625: -- validate lot number.
2626: IF ((p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL AND
2633: IF (mtl_lot_num_csr%NOTFOUND) THEN
2634: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOT');
2635: FND_MESSAGE.Set_Token('LOT',p_x_ahl_mtltxn_rec.Lot_Number);
2636: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2637: FND_MSG_PUB.ADD;
2638: x_return_status := FND_API.G_RET_STS_ERROR;
2639: END IF;
2640: CLOSE mtl_lot_num_csr;
2641: END IF;
2645: p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR)
2646: AND (l_lot_Control = C_NO_LOT_CONTROL) ) THEN
2647: FND_MESSAGE.Set_Name('AHL','AHL_PRD_LOT_NOTNULL');
2648: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2649: FND_MSG_PUB.ADD;
2650: x_return_status := FND_API.G_RET_STS_ERROR;
2651: END IF;
2652:
2653: -- If the locator controlled is true at the item level or sub inventory level
2667: if(p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
2668: p_x_ahl_mtltxn_rec.Locator_Id := NULL;
2669: END IF;
2670: FND_MESSAGE.Set_Token('LOC',p_x_ahl_mtltxn_rec.Locator_Id);
2671: FND_MSG_PUB.ADD;
2672: x_return_status := FND_API.G_RET_STS_ERROR;
2673: END IF;
2674: ELSE
2675: ****************************************************************/
2684: if(p_x_ahl_mtltxn_rec.Locator_Id = FND_API.G_MISS_NUM) THEN
2685: p_x_ahl_mtltxn_rec.Locator_Id := NULL;
2686: END IF;
2687: FND_MESSAGE.Set_Token('LOC',p_x_ahl_mtltxn_rec.Locator_Id);
2688: FND_MSG_PUB.ADD;
2689: x_return_status := FND_API.G_RET_STS_ERROR;
2690: END IF;
2691: CLOSE AHL_LOCATOR_CUR;
2692: END IF;
2704: THEN
2705: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_REVISION');
2706: FND_MESSAGE.Set_Token('REVISION',p_x_ahl_mtltxn_rec.Revision);
2707: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2708: FND_MSG_PUB.ADD;
2709: x_return_status := FND_API.G_RET_STS_ERROR;
2710: ELSE
2711: OPEN AHL_REVISION_CUR
2712: (
2719: THEN
2720: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_REVISION');
2721: FND_MESSAGE.Set_Token('REVISION',p_x_ahl_mtltxn_rec.Revision);
2722: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2723: FND_MSG_PUB.ADD;
2724: x_return_status := FND_API.G_RET_STS_ERROR;
2725: END IF;
2726: CLOSE AHL_REVISION_CUR;
2727: END IF;
2730: THEN
2731: FND_MESSAGE.Set_Name('AHL','AHL_PRD_REVNUM_NOTMAND');
2732: FND_MESSAGE.Set_Token('REV',p_x_ahl_mtltxn_rec.Revision);
2733: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
2734: FND_MSG_PUB.ADD;
2735: x_return_status := FND_API.G_RET_STS_ERROR;
2736: END IF;
2737: END IF;
2738: -- Tamal: Bug #4091154: End
2744: FETCH AHL_REASON_CUR INTO l_Count;
2745: IF(AHL_REASON_CUR%NOTFOUND) THEN
2746: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVLD_REASON');
2747: FND_MESSAGE.Set_Token('REASON',p_x_ahl_mtltxn_rec.Revision);
2748: FND_MSG_PUB.ADD;
2749: x_return_status := FND_API.G_RET_STS_ERROR;
2750: END IF;
2751: CLOSE AHL_REASON_CUR;
2752: END IF;
2760: if(p_x_ahl_mtltxn_rec.Condition = FND_API.G_MISS_NUM) THEN
2761: p_x_ahl_mtltxn_rec.Condition := NULL;
2762: END IF;
2763: FND_MESSAGE.Set_Token('CODE',p_x_ahl_mtltxn_rec.Condition);
2764: FND_MSG_PUB.ADD;
2765: x_return_status := FND_API.G_RET_STS_ERROR;
2766: END IF;
2767: CLOSE Condition_Cur;
2768:
2818: OPEN CSI_LOCATION_CUR(p_x_ahl_mtltxn_rec.Organization_Id);
2819: FETCH CSI_LOCATION_CUR INTO l_wip_location;
2820: IF(CSI_LOCATION_CUR%NOTFOUND) THEN
2821: FND_MESSAGE.Set_Name('AHL','AHL_PRD_CSI_INSTALL_ERROR');
2822: FND_MSG_PUB.ADD;
2823: x_return_status := FND_API.G_RET_STS_ERROR;
2824: END IF;
2825: CLOSE CSI_LOCATION_CUR;
2826: IF G_DEBUG='Y' THEN
2917: END IF;
2918: EXCEPTION
2919: WHEN NO_DATA_FOUND THEN
2920: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_NOT_ALLOWED');
2921: FND_MSG_PUB.ADD;
2922: x_return_status := FND_API.G_RET_STS_ERROR;
2923: END;
2924: p_x_ahl_mtltxn_rec.Item_Instance_ID := x_Item_Instance_Id;
2925:
2966: --l_wip_location);
2967: FETCH CSI_SER_ITEM_CUR INTO x_Item_Instance_Id;
2968: IF(CSI_SER_ITEM_CUR%NOTFOUND) THEN
2969: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_NOT_ALLOWED');
2970: FND_MSG_PUB.ADD;
2971: x_return_status := FND_API.G_RET_STS_ERROR;
2972: END IF;
2973: CLOSE CSI_SER_ITEM_CUR;
2974: p_x_ahl_mtltxn_rec.Item_Instance_ID := x_Item_Instance_Id;
3010: OPEN is_qa_coll_reqd(l_plan_id);
3011: FETCH is_qa_coll_reqd INTO l_junk;
3012: IF(is_qa_coll_reqd%FOUND) THEN
3013: FND_MESSAGE.Set_Name('AHL','AHL_PRD_NO_QA_RESULTS');
3014: FND_MSG_PUB.ADD;
3015: x_return_status := FND_API.G_RET_STS_ERROR;
3016: END IF;
3017: CLOSE is_qa_coll_reqd;
3018: END IF;
3029: FETCH PROBLEM_CODE_LKUP_CUR INTO l_count;
3030: IF(PROBLEM_CODE_LKUP_CUR%NOTFOUND) THEN
3031: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PROBLEM_CODE_INVALID');
3032: FND_MESSAGE.Set_Token('CODE',p_x_ahl_mtltxn_rec.Problem_Code);
3033: FND_MSG_PUB.ADD;
3034: x_return_status := FND_API.G_RET_STS_ERROR;
3035: END IF;
3036: CLOSE PROBLEM_CODE_LKUP_CUR;
3037: END IF;
3055: );
3056: END IF;
3057: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SERIAL_NOT_INV');
3058: FND_MESSAGE.Set_Token('SERIAL',p_x_ahl_mtltxn_rec.Serial_Number);
3059: FND_MSG_PUB.ADD;
3060: x_return_status := FND_API.G_RET_STS_ERROR;
3061: END IF;
3062: CLOSE mtl_serial_csr;
3063: ELSIF (p_x_ahl_mtltxn_rec.Lot_Number IS NOT NULL
3103: IF (nvl(p_x_ahl_mtltxn_rec.quantity,0) + nvl(l_pend_qty,0) > nvl(l_instance_qty,0)) THEN
3104: FND_MESSAGE.Set_Name('AHL','AHL_PRD_TXN_QTY_INVALID');
3105: FND_MESSAGE.Set_Token('QTY',p_x_ahl_mtltxn_rec.quantity);
3106: FND_MESSAGE.Set_Token('II_QTY', l_instance_qty-l_pend_qty);
3107: FND_MSG_PUB.ADD;
3108: x_return_status := FND_API.G_RET_STS_ERROR;
3109: END IF;
3110: IF (k = -1) THEN
3111: G_nonserial_ii_tbl(G_nonserial_ii_tbl.count+1).instance_id := p_x_ahl_mtltxn_rec.item_instance_id;
3171: IF (nvl(p_x_ahl_mtltxn_rec.quantity,0) + nvl(l_pend_qty,0) > nvl(l_instance_qty,0)) THEN
3172: FND_MESSAGE.Set_Name('AHL','AHL_PRD_TXN_QTY_INVALID');
3173: FND_MESSAGE.Set_Token('QTY',p_x_ahl_mtltxn_rec.quantity);
3174: FND_MESSAGE.Set_Token('II_QTY', l_instance_qty-l_pend_qty);
3175: FND_MSG_PUB.ADD;
3176: x_return_status := FND_API.G_RET_STS_ERROR;
3177: END IF;
3178: IF (k = -1) THEN
3179: G_nonserial_ii_tbl(G_nonserial_ii_tbl.count+1).instance_id := p_x_ahl_mtltxn_rec.item_instance_id;
3208: OPEN CSI_ISSUE_SER_ITEM_CUR( p_x_ahl_mtltxn_rec.Inventory_Item_Id,p_x_ahl_mtltxn_rec.Serial_Number );
3209: FETCH CSI_ISSUE_SER_ITEM_CUR INTO p_x_ahl_mtltxn_rec.Item_Instance_ID;
3210: IF(CSI_ISSUE_SER_ITEM_CUR%NOTFOUND) THEN
3211: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_NOT_ALLOWED');
3212: FND_MSG_PUB.ADD;
3213: x_return_status := FND_API.G_RET_STS_ERROR;
3214: END IF;
3215: CLOSE CSI_ISSUE_SER_ITEM_CUR;
3216: END IF;
3242: IF (l_quantity <> 1) THEN
3243: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_ITEM_QTY');
3244: FND_MESSAGE.Set_Token('PRIM_UOM',l_primary_uom_code);
3245: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
3246: FND_MSG_PUB.ADD;
3247: x_return_status := FND_API.G_RET_STS_ERROR;
3248: END IF;
3249: ELSE
3250: -- qty in primary uom.
3251: IF (p_x_ahl_mtltxn_rec.Quantity <> 1) THEN
3252: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_ITEM_QTY');
3253: FND_MESSAGE.Set_Token('PRIM_UOM',l_primary_uom_code);
3254: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
3255: FND_MSG_PUB.ADD;
3256: x_return_status := FND_API.G_RET_STS_ERROR;
3257: END IF;
3258: END IF; -- uom code.
3259: END IF; -- serial num.
3284: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SUB_CODE');
3285: FND_MESSAGE.Set_Token('CODE',l_curr_subinventory_code);
3286: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
3287: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
3288: FND_MSG_PUB.ADD;
3289: x_return_status := FND_API.G_RET_STS_ERROR;
3290: END IF;
3291:
3292: IF G_DEBUG='Y' THEN
3300: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_LOC_CODE');
3301: --FND_MESSAGE.Set_Token('CODE',l_curr_locator_id);
3302: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
3303: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
3304: FND_MSG_PUB.ADD;
3305: x_return_status := FND_API.G_RET_STS_ERROR;
3306: END IF;
3307: ELSE
3308: -- serial number not found.
3308: -- serial number not found.
3309: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_SRLNUM');
3310: FND_MESSAGE.Set_Token('ITEM',l_concatenated_segments);
3311: FND_MESSAGE.Set_Token('SER',p_x_ahl_mtltxn_rec.Serial_Number);
3312: FND_MSG_PUB.ADD;
3313: x_return_status := FND_API.G_RET_STS_ERROR;
3314: END IF;
3315:
3316: CLOSE mtl_srl_num_csr;
3338: AHL_DEBUG_PUB.debug('Error in txn date');
3339: END IF;
3340: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_TXN_DATE');
3341: FND_MESSAGE.Set_Token('DATE',p_x_ahl_mtltxn_rec.transaction_date);
3342: FND_MSG_PUB.ADD;
3343: x_return_status := FND_API.G_RET_STS_ERROR;
3344: END IF;
3345:
3346: END IF;
3354: IF(p_x_ahl_mtltxn_rec.Wip_Entity_Id = FND_API.G_MISS_NUM) THEN
3355: p_x_ahl_mtltxn_rec.Wip_Entity_Id := NULL;
3356: END IF;
3357: FND_MESSAGE.Set_Token('WIP_ENTITY',p_x_ahl_mtltxn_rec.Wip_Entity_Id);
3358: FND_MSG_PUB.ADD;
3359: x_return_status := FND_API.G_RET_STS_ERROR;
3360: ELSE
3361: IF G_DEBUG='Y' THEN
3362: AHL_DEBUG_PUB.debug('transaction date['||to_char(p_x_ahl_mtltxn_rec.transaction_date,'dd-mon-yyyy hh24:mi:ss') ||']');
3368: END IF;
3369: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_TXN_REL_DT');
3370: FND_MESSAGE.Set_Token('TXNS_DATE',to_char(p_x_ahl_mtltxn_rec.transaction_date,'dd-MON-yyyy hh24:mi:ss'));
3371: FND_MESSAGE.Set_Token('REL_DATE',to_char(l_workorder_released_date,'dd-MON-yyyy hh24:mi:ss'));
3372: FND_MSG_PUB.ADD;
3373: x_return_status := FND_API.G_RET_STS_ERROR;
3374: END IF;
3375: END IF;
3376: CLOSE workorder_released_date_csr;
3400: FETCH disposition_cur INTO l_disposition_id, l_qa_collection_id, l_condition_code, l_condition_id;
3401: IF (disposition_cur%NOTFOUND) THEN
3402: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_DISP_INVALID');
3403: FND_MESSAGE.Set_Token('DISP_ID',p_x_ahl_mtltxn_rec.disposition_id);
3404: FND_MSG_PUB.ADD;
3405: x_return_status := FND_API.G_RET_STS_ERROR;
3406: END IF;
3407: CLOSE disposition_cur;
3408: IF (l_qa_collection_id IS NOT NULL) THEN
3408: IF (l_qa_collection_id IS NOT NULL) THEN
3409: IF (p_x_ahl_mtltxn_rec.qa_collection_id IS NULL) THEN
3410: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_QAID_NULL');
3411: FND_MESSAGE.Set_Token('DISP_ID',p_x_ahl_mtltxn_rec.disposition_id);
3412: FND_MSG_PUB.ADD;
3413: x_return_status := FND_API.G_RET_STS_ERROR;
3414: ELSIF (p_x_ahl_mtltxn_rec.qa_collection_id <> l_qa_collection_id) THEN
3415: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_QAID_INVALID');
3416: FND_MESSAGE.Set_Token('QA_I',p_x_ahl_mtltxn_rec.qa_collection_id);
3414: ELSIF (p_x_ahl_mtltxn_rec.qa_collection_id <> l_qa_collection_id) THEN
3415: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_QAID_INVALID');
3416: FND_MESSAGE.Set_Token('QA_I',p_x_ahl_mtltxn_rec.qa_collection_id);
3417: FND_MESSAGE.Set_Token('QA_D',l_qa_collection_id);
3418: FND_MSG_PUB.ADD;
3419: x_return_status := FND_API.G_RET_STS_ERROR;
3420: END IF;
3421: END IF;
3422: IF (p_x_ahl_mtltxn_rec.Transaction_Type_Id = WIP_CONSTANTS.RETCOMP_TYPE)
3423: AND (l_condition_id <> p_x_ahl_mtltxn_rec.condition) THEN
3424: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_COND_INVALID');
3425: FND_MESSAGE.Set_Token('COND_I',p_x_ahl_mtltxn_rec.condition_desc);
3426: FND_MESSAGE.Set_Token('COND_D',l_condition_code);
3427: FND_MSG_PUB.ADD;
3428: x_return_status := FND_API.G_RET_STS_ERROR;
3429: END IF;
3430: END IF; -- -- p_x_ahl_mtltxn_rec.disposition_id
3431:
3660: END IF;
3661: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3662: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3663: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3664: FND_MSG_PUB.ADD;
3665: RAISE FND_API.G_EXC_ERROR;
3666: END IF;
3667:
3668: IF(p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR AND
3717: END IF;
3718: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3719: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3720: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3721: FND_MSG_PUB.ADD;
3722: RAISE FND_API.G_EXC_ERROR;
3723: END IF;
3724: IF G_DEBUG='Y' THEN
3725: AHL_DEBUG_PUB.debug('inserting in msnt..');
3738:
3739: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3740: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3741: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3742: FND_MSG_PUB.ADD;
3743: RAISE FND_API.G_EXC_ERROR;
3744: END IF;
3745:
3746: ELSIF (p_x_ahl_mtltxn_rec.Lot_Number <> FND_API.G_MISS_CHAR AND
3772: END IF;
3773: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3774: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3775: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3776: FND_MSG_PUB.ADD;
3777: RAISE FND_API.G_EXC_ERROR;
3778: END IF;
3779:
3780: ELSIF (p_x_ahl_mtltxn_rec.Serial_Number <> FND_API.G_MISS_CHAR AND
3806:
3807: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3808: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
3809: FND_MESSAGE.Set_Token('MSG',x_msg_data);
3810: FND_MSG_PUB.ADD;
3811: RAISE FND_API.G_EXC_ERROR;
3812: END IF;
3813: END IF;
3814: END INSERT_MTL_TXN_TEMP;
3897: OPEN Workop_Det_Cur( p_mtl_txn_Rec.Workorder_Id);
3898: FETCH Workop_Det_Cur INTO l_Visit_Id,l_visit_task_Id,l_project_id,l_project_Task_id;
3899: IF(Workop_Det_Cur%NOTFOUND) THEN
3900: FND_MESSAGE.Set_Name('AHL','AHL_PRD_INVALID_WO_OP');
3901: FND_MSG_PUB.ADD;
3902: CLOSE Workop_Det_Cur;
3903: RAISE FND_API.G_EXC_ERROR;
3904: END IF;
3905: CLOSE Workop_Det_Cur;
3919: FETCH Item_Desc_Cur INTO l_Item_Desc;
3920: IF(Item_Desc_Cur%NOTFOUND) THEN
3921: FND_MESSAGE.Set_Name('AHL','AHL_COM_INVALID_ITEM');
3922: FND_MESSAGE.Set_Token('FIELD',p_mtl_txn_Rec.Inventory_Item_Id);
3923: FND_MSG_PUB.ADD;
3924: CLOSE Item_Desc_Cur;
3925: RAISE FND_API.G_EXC_ERROR;
3926: END IF;
3927: CLOSE Item_Desc_Cur;
4005: END IF;
4006: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4007: FND_MESSAGE.Set_Name('AHL','AHL_PRD_SCHMTLAPI_ERROR');
4008: FND_MESSAGE.Set_Token('MSG',x_msg_data);
4009: FND_MSG_PUB.ADD;
4010: RAISE FND_API.G_EXC_ERROR;
4011: END IF;
4012:
4013: /* will be updated after wip api is successful - modified for bug fix 5499575.
4596: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTLTXN_ERROR');
4597: FND_MESSAGE.Set_Token('MSG',SQLERRM);
4598: FND_MESSAGE.Set_Token('ITEM',p_x_ahl_mtl_txn_rec.Inventory_Item_Id);
4599: FND_MESSAGE.Set_Token('WO_NAME',p_x_ahl_mtl_txn_rec.workorder_id);
4600: FND_MSG_PUB.ADD;
4601: RAISE FND_API.G_EXC_ERROR;
4602:
4603: END INSERT_MTL_TXN_INTF;
4604:
7090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7091: END IF;
7092: -- Initialize message list if p_init_msg_list is set to TRUE
7093: IF FND_API.To_Boolean(p_init_msg_list) THEN
7094: FND_MSG_PUB.Initialize;
7095: END IF;
7096:
7097: -- Initialize API return status to success
7098: x_return_status := FND_API.G_RET_STS_SUCCESS;
7181: EXCEPTION
7182: WHEN FND_API.G_EXC_ERROR THEN
7183: x_return_status := FND_API.G_RET_STS_ERROR;
7184: Rollback to GET_MTL_TRANS_RETURNS_PVT;
7185: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7186: p_data => x_msg_data,
7187: p_encoded => fnd_api.g_false);
7188:
7189:
7189:
7190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7192: Rollback to GET_MTL_TRANS_RETURNS_PVT;
7193: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7194: p_data => x_msg_data,
7195: p_encoded => fnd_api.g_false);
7196:
7197: WHEN OTHERS THEN
7196:
7197: WHEN OTHERS THEN
7198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7199: Rollback to GET_MTL_TRANS_RETURNS_PVT;
7200: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7201: p_procedure_name => 'GET_MTL_TRANS_RETURNS',
7202: p_error_text => SQLERRM);
7203: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7204: p_data => x_msg_data,
7199: Rollback to GET_MTL_TRANS_RETURNS_PVT;
7200: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
7201: p_procedure_name => 'GET_MTL_TRANS_RETURNS',
7202: p_error_text => SQLERRM);
7203: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
7204: p_data => x_msg_data,
7205: p_encoded => fnd_api.g_false);
7206:
7207: END GET_MTL_TRANS_RETURNS;
7221: IF CLREC.error_code IS NOT NULL
7222: THEN
7223: FND_MESSAGE.Set_Name('AHL','AHL_COM_GENERIC_ERROR');
7224: FND_MESSAGE.Set_Token('MESSAGE',CLREC.error_code);
7225: FND_MSG_PUB.ADD;
7226: END IF;
7227: END LOOP;
7228: end;
7229: */
7596:
7597: IF NOT(l_valid_flag) THEN
7598: FND_MESSAGE.Set_Name('AHL','AHL_INPUT_NUM_LOC_SEGS_INVALID');
7599: FND_MESSAGE.Set_Token('LOC_SEG',p_concat_segs);
7600: FND_MSG_PUB.ADD;
7601: x_return_status := FND_API.G_RET_STS_ERROR;
7602: RETURN;
7603: END IF;
7604:
7619:
7620: FND_MESSAGE.Set_Name('AHL','AHL_INPUT_NUM_LOC_SEGS_INVALID');
7621: FND_MESSAGE.Set_Token('LOC_NUM',l_flex_nseg);
7622: FND_MESSAGE.Set_Token('LOC_SEG',p_concat_segs);
7623: FND_MSG_PUB.ADD;
7624: x_return_status := FND_API.G_RET_STS_ERROR;
7625: RETURN;
7626: END IF;
7627: */