[Home] [Help]
119:
120: -- Initialize message list if p_init_msg_list is set to TRUE
121:
122: IF FND_API.To_Boolean(p_init_msg_list) THEN
123: FND_MSG_PUB.Initialize;
124: END IF;
125:
126: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
127: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
148: FETCH get_disp_rec_csr INTO l_disp_rec;
149: IF (get_disp_rec_csr%NOTFOUND) THEN
150: FND_MESSAGE.Set_Name('AHL','AHL_PRD_DISP_ID_INV');
151: FND_MESSAGE.Set_Token('DISPOSITION_ID', l_disp_mx_rec.disposition_id);
152: FND_MSG_PUB.ADD;
153: l_return_status := FND_API.G_RET_STS_ERROR;
154: CLOSE get_disp_rec_csr;
155: RAISE FND_API.G_EXC_ERROR;
156: END IF;
162: FETCH workorder_editable_csr INTO l_exist, l_job_status;
163: IF (workorder_editable_csr%FOUND) THEN
164: FND_MESSAGE.Set_Name('AHL','AHL_PRD_DIS_ASSOC_WO_STATUS'); --Cannot update disposition because of current workorder's status
165: FND_MESSAGE.Set_Token('STATUS', l_job_status);
166: FND_MSG_PUB.ADD;
167: l_return_status := FND_API.G_RET_STS_ERROR;
168: CLOSE workorder_editable_csr;
169: RAISE FND_API.G_EXC_ERROR;
170: END IF;
178: FETCH get_mtl_txn_rec_csr INTO l_mtl_txn_rec;
179: IF (get_mtl_txn_rec_csr%NOTFOUND) THEN
180: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_ID_INV');
181: FND_MESSAGE.Set_Token('MTL_TXN_ID', l_disp_mx_rec.wo_mtl_txn_id);
182: FND_MSG_PUB.ADD;
183: l_return_status := FND_API.G_RET_STS_ERROR;
184: CLOSE get_mtl_txn_rec_csr;
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
196: -- if the instance_id is not null. Thus it could be different from job's org which equals to material
197: -- transaction organization.
198: -- OR l_disp_rec.organization_id <> l_mtl_txn_rec.organization_id)) THEN
199: FND_MESSAGE.Set_Name('AHL','AHL_PRD_DISP_MTL_TXN_ITEM_ILL');
200: FND_MSG_PUB.ADD;
201: l_return_status := FND_API.G_RET_STS_ERROR;
202: RAISE FND_API.G_EXC_ERROR;
203: END IF;
204:
203: END IF;
204:
205: IF (l_disp_rec.workorder_id <> l_mtl_txn_rec.workorder_id) THEN
206: FND_MESSAGE.Set_Name('AHL','AHL_PRD_DISP_MTL_TXN_WO_ILL');
207: FND_MSG_PUB.ADD;
208: l_return_status := FND_API.G_RET_STS_ERROR;
209: RAISE FND_API.G_EXC_ERROR;
210: END IF;
211:
226: IF (l_disp_mx_rec.quantity < 0) THEN
227: FND_MESSAGE.Set_Name('AHL','AHL_COM_UOM_CONV_FAILED');
228: FND_MESSAGE.Set_Token('FROM_UOM', l_disp_mx_rec.UOM);
229: FND_MESSAGE.Set_Token('TO_UOM', l_disp_rec.uom);
230: FND_MSG_PUB.ADD;
231: l_return_status := FND_API.G_RET_STS_ERROR;
232: RAISE FND_API.G_EXC_ERROR;
233: END IF;
234: END IF;
369:
370: -- Check Object version number.
371: IF (l_old_disp_mx_rec.object_version_number <> l_disp_mx_rec.object_version_number) THEN
372: FND_MESSAGE.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
373: FND_MSG_PUB.ADD;
374: l_return_status := FND_API.G_RET_STS_ERROR;
375: CLOSE get_disp_mtl_txn_rec_csr;
376: Raise FND_API.G_EXC_UNEXPECTED_ERROR;
377: END IF;
515: --No UOM conversion is necessary, because all QTYs store in Disposition UOM
516: IF (Calculate_Txned_Qty(p_x_disp_mtl_txn_tbl(i).disposition_id) > l_disp_rec.quantity) THEN
517: FND_MESSAGE.Set_Name('AHL','AHL_PRD_DISP_QTY_EXCEEDED');
518: FND_MESSAGE.Set_Token('DISPOSITION_ID', p_x_disp_mtl_txn_tbl(i).disposition_id);
519: FND_MSG_PUB.ADD;
520: l_return_status := FND_API.G_RET_STS_ERROR;
521: END IF;
522:
523: --Verify the mtl transaction quantity is not exceeded by the various dispositions.
551: --If quantity count is less than 0, then raise exception
552: IF (l_mtl_txn_rec.quantity<0) THEN
553: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_QTY_EXCEEDED');
554: FND_MESSAGE.Set_Token('MTL_TXN_ID', p_x_disp_mtl_txn_tbl(i).wo_mtl_txn_id);
555: FND_MSG_PUB.ADD;
556: l_return_status := FND_API.G_RET_STS_ERROR;
557: EXIT;
558: END IF;
559: END LOOP;
615: Do not use this check since this API can be called after
616: performing a material txn which puts a message (success)
617: into the message stack
618:
619: x_msg_count := FND_MSG_PUB.count_msg;
620: IF x_msg_count > 0 THEN
621: RAISE FND_API.G_EXC_ERROR;
622: END IF;
623: */
630: COMMIT WORK;
631: END IF;
632:
633: -- Standard call to get message count and if count is 1, get message info
634: FND_MSG_PUB.Count_And_Get
635: ( p_count => x_msg_count,
636: p_data => x_msg_data,
637: p_encoded => fnd_api.g_false
638: );
640: EXCEPTION
641: WHEN FND_API.G_EXC_ERROR THEN
642: Rollback to Process_Disp_Mtl_Txn_pvt;
643: x_return_status := FND_API.G_RET_STS_ERROR;
644: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
645: p_data => x_msg_data,
646: p_encoded => fnd_api.g_false);
647: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
648: Rollback to Process_Disp_Mtl_Txn_pvt;
646: p_encoded => fnd_api.g_false);
647: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
648: Rollback to Process_Disp_Mtl_Txn_pvt;
649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
650: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
651: p_data => x_msg_data,
652: p_encoded => fnd_api.g_false);
653: WHEN OTHERS THEN
654: Rollback to Process_Disp_Mtl_Txn_pvt;
652: p_encoded => fnd_api.g_false);
653: WHEN OTHERS THEN
654: Rollback to Process_Disp_Mtl_Txn_pvt;
655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
656: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
657: p_procedure_name => l_api_name,
658: p_error_text => SQLERRM);
659: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
660: p_data => x_msg_data,
655: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
656: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
657: p_procedure_name => l_api_name,
658: p_error_text => SQLERRM);
659: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
660: p_data => x_msg_data,
661: p_encoded => fnd_api.g_false);
662: END Process_Disp_Mtl_Txn;
663:
936: x_return_status := FND_API.G_RET_STS_SUCCESS;
937:
938: -- Initialize message list if p_init_msg_list is set to TRUE
939: IF FND_API.To_Boolean(p_init_msg_list) THEN
940: FND_MSG_PUB.Initialize;
941: END IF;
942:
943: OPEN get_mtl_txn_csr(p_wo_mtl_txn_id);
944: FETCH get_mtl_txn_csr INTO l_txn_rec;
945: IF (get_mtl_txn_csr%NOTFOUND) THEN
946: CLOSE get_mtl_txn_csr;
947: FND_MESSAGE.Set_Name('AHL','AHL_PRD_MTL_TXN_ID_INV');
948: FND_MESSAGE.Set_Token('MTL_TXN_ID', p_wo_mtl_txn_id);
949: FND_MSG_PUB.ADD;
950: RAISE FND_API.G_EXC_ERROR;
951: END IF;
952: CLOSE get_mtl_txn_csr;
953:
1026:
1027: END IF;
1028:
1029: -- Standard call to get message count and if count is 1, get message info
1030: FND_MSG_PUB.Count_And_Get
1031: ( p_count => x_msg_count,
1032: p_data => x_msg_data,
1033: p_encoded => fnd_api.g_false
1034: );
1036: EXCEPTION
1037: WHEN FND_API.G_EXC_ERROR THEN
1038: Rollback to Get_Mtl_Txn_Type_pvt;
1039: x_return_status := FND_API.G_RET_STS_ERROR;
1040: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1041: p_data => x_msg_data,
1042: p_encoded => fnd_api.g_false);
1043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1044: Rollback to Get_Mtl_Txn_Type_pvt;
1042: p_encoded => fnd_api.g_false);
1043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1044: Rollback to Get_Mtl_Txn_Type_pvt;
1045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1047: p_data => x_msg_data,
1048: p_encoded => fnd_api.g_false);
1049: WHEN OTHERS THEN
1050: Rollback to Get_Mtl_Txn_Type_pvt;
1048: p_encoded => fnd_api.g_false);
1049: WHEN OTHERS THEN
1050: Rollback to Get_Mtl_Txn_Type_pvt;
1051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1052: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1053: p_procedure_name => l_api_name,
1054: p_error_text => SQLERRM);
1055: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1056: p_data => x_msg_data,
1051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1052: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1053: p_procedure_name => l_api_name,
1054: p_error_text => SQLERRM);
1055: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1056: p_data => x_msg_data,
1057: p_encoded => fnd_api.g_false);
1058: END Get_Disp_For_Mtl_Txn;
1059: