[Home] [Help]
116:
117: -- Initialize message list if p_init_msg_list is set to TRUE
118:
119: IF FND_API.To_Boolean(p_init_msg_list) THEN
120: FND_MSG_PUB.Initialize;
121: END IF;
122:
123: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
124: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
145: FETCH get_disp_rec_csr INTO l_disp_rec;
146: IF (get_disp_rec_csr%NOTFOUND) THEN
147: FND_MESSAGE.Set_Name('AHL','AHL_PRD_DISP_ID_INV');
148: FND_MESSAGE.Set_Token('DISPOSITION_ID', l_disp_mx_rec.disposition_id);
149: FND_MSG_PUB.ADD;
150: l_return_status := FND_API.G_RET_STS_ERROR;
151: CLOSE get_disp_rec_csr;
152: RAISE FND_API.G_EXC_ERROR;
153: END IF;
159: FETCH workorder_editable_csr INTO l_exist, l_job_status;
160: IF (workorder_editable_csr%FOUND) THEN
161: FND_MESSAGE.Set_Name('AHL','AHL_PRD_DIS_ASSOC_WO_STATUS'); --Cannot update disposition because of current workorder's status
162: FND_MESSAGE.Set_Token('STATUS', l_job_status);
163: FND_MSG_PUB.ADD;
164: l_return_status := FND_API.G_RET_STS_ERROR;
165: CLOSE workorder_editable_csr;
166: RAISE FND_API.G_EXC_ERROR;
167: END IF;
175: FETCH get_mtl_txn_rec_csr INTO l_mtl_txn_rec;
176: IF (get_mtl_txn_rec_csr%NOTFOUND) THEN
177: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_ID_INV');
178: FND_MESSAGE.Set_Token('MTL_TXN_ID', l_disp_mx_rec.wo_mtl_txn_id);
179: FND_MSG_PUB.ADD;
180: l_return_status := FND_API.G_RET_STS_ERROR;
181: CLOSE get_mtl_txn_rec_csr;
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
193: -- if the instance_id is not null. Thus it could be different from job's org which equals to material
194: -- transaction organization.
195: -- OR l_disp_rec.organization_id <> l_mtl_txn_rec.organization_id)) THEN
196: FND_MESSAGE.Set_Name('AHL','AHL_PRD_DISP_MTL_TXN_ITEM_ILL');
197: FND_MSG_PUB.ADD;
198: l_return_status := FND_API.G_RET_STS_ERROR;
199: RAISE FND_API.G_EXC_ERROR;
200: END IF;
201:
200: END IF;
201:
202: IF (l_disp_rec.workorder_id <> l_mtl_txn_rec.workorder_id) THEN
203: FND_MESSAGE.Set_Name('AHL','AHL_PRD_DISP_MTL_TXN_WO_ILL');
204: FND_MSG_PUB.ADD;
205: l_return_status := FND_API.G_RET_STS_ERROR;
206: RAISE FND_API.G_EXC_ERROR;
207: END IF;
208:
223: IF (l_disp_mx_rec.quantity < 0) THEN
224: FND_MESSAGE.Set_Name('AHL','AHL_COM_UOM_CONV_FAILED');
225: FND_MESSAGE.Set_Token('FROM_UOM', l_disp_mx_rec.UOM);
226: FND_MESSAGE.Set_Token('TO_UOM', l_disp_rec.uom);
227: FND_MSG_PUB.ADD;
228: l_return_status := FND_API.G_RET_STS_ERROR;
229: RAISE FND_API.G_EXC_ERROR;
230: END IF;
231: END IF;
366:
367: -- Check Object version number.
368: IF (l_old_disp_mx_rec.object_version_number <> l_disp_mx_rec.object_version_number) THEN
369: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
370: FND_MSG_PUB.ADD;
371: l_return_status := FND_API.G_RET_STS_ERROR;
372: CLOSE get_disp_mtl_txn_rec_csr;
373: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
374: END IF;
512: --No UOM conversion is necessary, because all QTYs store in Disposition UOM
513: IF (Calculate_Txned_Qty(p_x_disp_mtl_txn_tbl(i).disposition_id) > l_disp_rec.quantity) THEN
514: FND_MESSAGE.Set_Name('AHL','AHL_PRD_DISP_QTY_EXCEEDED');
515: FND_MESSAGE.Set_Token('DISPOSITION_ID', p_x_disp_mtl_txn_tbl(i).disposition_id);
516: FND_MSG_PUB.ADD;
517: l_return_status := FND_API.G_RET_STS_ERROR;
518: END IF;
519:
520: --Verify the mtl transaction quantity is not exceeded by the various dispositions.
548: --If quantity count is less than 0, then raise exception
549: IF (l_mtl_txn_rec.quantity<0) THEN
550: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_QTY_EXCEEDED');
551: FND_MESSAGE.Set_Token('MTL_TXN_ID', p_x_disp_mtl_txn_tbl(i).wo_mtl_txn_id);
552: FND_MSG_PUB.ADD;
553: l_return_status := FND_API.G_RET_STS_ERROR;
554: EXIT;
555: END IF;
556: END LOOP;
603: Do not use this check since this API can be called after
604: performing a material txn which puts a message (success)
605: into the message stack
606:
607: x_msg_count := FND_MSG_PUB.count_msg;
608: IF x_msg_count > 0 THEN
609: RAISE FND_API.G_EXC_ERROR;
610: END IF;
611: */
618: COMMIT WORK;
619: END IF;
620:
621: -- Standard call to get message count and if count is 1, get message info
622: FND_MSG_PUB.Count_And_Get
623: ( p_count => x_msg_count,
624: p_data => x_msg_data,
625: p_encoded => fnd_api.g_false
626: );
628: EXCEPTION
629: WHEN FND_API.G_EXC_ERROR THEN
630: Rollback to Process_Disp_Mtl_Txn_pvt;
631: x_return_status := FND_API.G_RET_STS_ERROR;
632: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
633: p_data => x_msg_data,
634: p_encoded => fnd_api.g_false);
635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
636: Rollback to Process_Disp_Mtl_Txn_pvt;
634: p_encoded => fnd_api.g_false);
635: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
636: Rollback to Process_Disp_Mtl_Txn_pvt;
637: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
638: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
639: p_data => x_msg_data,
640: p_encoded => fnd_api.g_false);
641: WHEN OTHERS THEN
642: Rollback to Process_Disp_Mtl_Txn_pvt;
640: p_encoded => fnd_api.g_false);
641: WHEN OTHERS THEN
642: Rollback to Process_Disp_Mtl_Txn_pvt;
643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
645: p_procedure_name => l_api_name,
646: p_error_text => SQLERRM);
647: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
648: p_data => x_msg_data,
643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
645: p_procedure_name => l_api_name,
646: p_error_text => SQLERRM);
647: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
648: p_data => x_msg_data,
649: p_encoded => fnd_api.g_false);
650: END Process_Disp_Mtl_Txn;
651:
924: x_return_status := FND_API.G_RET_STS_SUCCESS;
925:
926: -- Initialize message list if p_init_msg_list is set to TRUE
927: IF FND_API.To_Boolean(p_init_msg_list) THEN
928: FND_MSG_PUB.Initialize;
929: END IF;
930:
931: OPEN get_mtl_txn_csr(p_wo_mtl_txn_id);
932: FETCH get_mtl_txn_csr INTO l_txn_rec;
933: IF (get_mtl_txn_csr%NOTFOUND) THEN
934: CLOSE get_mtl_txn_csr;
935: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_ID_INV');
936: FND_MESSAGE.Set_Token('MTL_TXN_ID', p_wo_mtl_txn_id);
937: FND_MSG_PUB.ADD;
938: RAISE FND_API.G_EXC_ERROR;
939: END IF;
940: CLOSE get_mtl_txn_csr;
941:
1014:
1015: END IF;
1016:
1017: -- Standard call to get message count and if count is 1, get message info
1018: FND_MSG_PUB.Count_And_Get
1019: ( p_count => x_msg_count,
1020: p_data => x_msg_data,
1021: p_encoded => fnd_api.g_false
1022: );
1024: EXCEPTION
1025: WHEN FND_API.G_EXC_ERROR THEN
1026: Rollback to Get_Mtl_Txn_Type_pvt;
1027: x_return_status := FND_API.G_RET_STS_ERROR;
1028: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1029: p_data => x_msg_data,
1030: p_encoded => fnd_api.g_false);
1031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1032: Rollback to Get_Mtl_Txn_Type_pvt;
1030: p_encoded => fnd_api.g_false);
1031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1032: Rollback to Get_Mtl_Txn_Type_pvt;
1033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1034: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1035: p_data => x_msg_data,
1036: p_encoded => fnd_api.g_false);
1037: WHEN OTHERS THEN
1038: Rollback to Get_Mtl_Txn_Type_pvt;
1036: p_encoded => fnd_api.g_false);
1037: WHEN OTHERS THEN
1038: Rollback to Get_Mtl_Txn_Type_pvt;
1039: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1040: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1041: p_procedure_name => l_api_name,
1042: p_error_text => SQLERRM);
1043: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1044: p_data => x_msg_data,
1039: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1040: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1041: p_procedure_name => l_api_name,
1042: p_error_text => SQLERRM);
1043: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1044: p_data => x_msg_data,
1045: p_encoded => fnd_api.g_false);
1046: END Get_Disp_For_Mtl_Txn;
1047: