168: ELSE
169: OPEN get_uc_header_rec_csr(p_uc_header_id);
170: FETCH get_uc_header_rec_csr INTO l_top_instance_id;
171: IF ( get_uc_header_rec_csr%NOTFOUND ) THEN
172: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
173: FND_MESSAGE.set_token('UC_HEADER_ID', p_uc_header_id);
174: FND_MSG_PUB.add;
175: CLOSE get_uc_header_rec_csr;
176: RAISE FND_API.G_EXC_ERROR;
169: OPEN get_uc_header_rec_csr(p_uc_header_id);
170: FETCH get_uc_header_rec_csr INTO l_top_instance_id;
171: IF ( get_uc_header_rec_csr%NOTFOUND ) THEN
172: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
173: FND_MESSAGE.set_token('UC_HEADER_ID', p_uc_header_id);
174: FND_MSG_PUB.add;
175: CLOSE get_uc_header_rec_csr;
176: RAISE FND_API.G_EXC_ERROR;
177: END IF;
198: END IF;
199: CLOSE get_unit_instance_csr;
200:
201: --Build the error message
202: FND_MESSAGE.Set_Name('AHL','AHL_UC_EXTRA_NODE');
203: FND_MESSAGE.Set_Token('ITEM_NO', l_item_number);
204: FND_MESSAGE.Set_Token('SERIAL_NO', l_serial_number);
205: FND_MESSAGE.Set_Token('UNIT_NAME', l_unit_name);
206:
199: CLOSE get_unit_instance_csr;
200:
201: --Build the error message
202: FND_MESSAGE.Set_Name('AHL','AHL_UC_EXTRA_NODE');
203: FND_MESSAGE.Set_Token('ITEM_NO', l_item_number);
204: FND_MESSAGE.Set_Token('SERIAL_NO', l_serial_number);
205: FND_MESSAGE.Set_Token('UNIT_NAME', l_unit_name);
206:
207: --Get the extra node childrens and list them.
200:
201: --Build the error message
202: FND_MESSAGE.Set_Name('AHL','AHL_UC_EXTRA_NODE');
203: FND_MESSAGE.Set_Token('ITEM_NO', l_item_number);
204: FND_MESSAGE.Set_Token('SERIAL_NO', l_serial_number);
205: FND_MESSAGE.Set_Token('UNIT_NAME', l_unit_name);
206:
207: --Get the extra node childrens and list them.
208: OPEN get_extra_node_child_csr(l_csi_id);
201: --Build the error message
202: FND_MESSAGE.Set_Name('AHL','AHL_UC_EXTRA_NODE');
203: FND_MESSAGE.Set_Token('ITEM_NO', l_item_number);
204: FND_MESSAGE.Set_Token('SERIAL_NO', l_serial_number);
205: FND_MESSAGE.Set_Token('UNIT_NAME', l_unit_name);
206:
207: --Get the extra node childrens and list them.
208: OPEN get_extra_node_child_csr(l_csi_id);
209: LOOP
215: FETCH get_node_details_csr into l_item_number, l_serial_number;
216: CLOSE get_node_details_csr;
217:
218: --Build the error message
219: FND_MESSAGE.Set_Name('AHL','AHL_UC_EXTRA_NODE');
220: FND_MESSAGE.Set_Token('ITEM_NO', l_item_number);
221: FND_MESSAGE.Set_Token('SERIAL_NO', l_serial_number);
222: FND_MESSAGE.Set_Token('UNIT_NAME', l_unit_name);
223:
216: CLOSE get_node_details_csr;
217:
218: --Build the error message
219: FND_MESSAGE.Set_Name('AHL','AHL_UC_EXTRA_NODE');
220: FND_MESSAGE.Set_Token('ITEM_NO', l_item_number);
221: FND_MESSAGE.Set_Token('SERIAL_NO', l_serial_number);
222: FND_MESSAGE.Set_Token('UNIT_NAME', l_unit_name);
223:
224: END LOOP;
217:
218: --Build the error message
219: FND_MESSAGE.Set_Name('AHL','AHL_UC_EXTRA_NODE');
220: FND_MESSAGE.Set_Token('ITEM_NO', l_item_number);
221: FND_MESSAGE.Set_Token('SERIAL_NO', l_serial_number);
222: FND_MESSAGE.Set_Token('UNIT_NAME', l_unit_name);
223:
224: END LOOP;
225: CLOSE get_extra_node_child_csr;
218: --Build the error message
219: FND_MESSAGE.Set_Name('AHL','AHL_UC_EXTRA_NODE');
220: FND_MESSAGE.Set_Token('ITEM_NO', l_item_number);
221: FND_MESSAGE.Set_Token('SERIAL_NO', l_serial_number);
222: FND_MESSAGE.Set_Token('UNIT_NAME', l_unit_name);
223:
224: END LOOP;
225: CLOSE get_extra_node_child_csr;
226:
225: CLOSE get_extra_node_child_csr;
226:
227: -- Write the error message to the error table.
228: IF (p_x_error_table.COUNT >0) THEN
229: p_x_error_table(p_x_error_table.LAST+1) := FND_MESSAGE.get;
230: ELSE
231: p_x_error_table(0) := FND_MESSAGE.get;
232: END IF;
233: x_evaluation_status := FND_API.G_FALSE;
227: -- Write the error message to the error table.
228: IF (p_x_error_table.COUNT >0) THEN
229: p_x_error_table(p_x_error_table.LAST+1) := FND_MESSAGE.get;
230: ELSE
231: p_x_error_table(0) := FND_MESSAGE.get;
232: END IF;
233: x_evaluation_status := FND_API.G_FALSE;
234:
235: END LOOP;
363: --Call procedure to validate the uc header id
364: OPEN get_uc_header_rec_csr(p_uc_header_id);
365: FETCH get_uc_header_rec_csr INTO l_top_instance_id;
366: IF ( get_uc_header_rec_csr%NOTFOUND ) THEN
367: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
368: FND_MESSAGE.set_token('UC_HEADER_ID', p_uc_header_id);
369: FND_MSG_PUB.add;
370: CLOSE get_uc_header_rec_csr;
371: RAISE FND_API.G_EXC_ERROR;
364: OPEN get_uc_header_rec_csr(p_uc_header_id);
365: FETCH get_uc_header_rec_csr INTO l_top_instance_id;
366: IF ( get_uc_header_rec_csr%NOTFOUND ) THEN
367: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
368: FND_MESSAGE.set_token('UC_HEADER_ID', p_uc_header_id);
369: FND_MSG_PUB.add;
370: CLOSE get_uc_header_rec_csr;
371: RAISE FND_API.G_EXC_ERROR;
372: END IF;
554: --Call procedure to validate the uc header id
555: OPEN get_uc_header_rec_csr(p_uc_header_id);
556: FETCH get_uc_header_rec_csr INTO l_top_instance_id;
557: IF ( get_uc_header_rec_csr%NOTFOUND ) THEN
558: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
559: FND_MESSAGE.set_token('UC_HEADER_ID', p_uc_header_id);
560: FND_MSG_PUB.add;
561: CLOSE get_uc_header_rec_csr;
562: RAISE FND_API.G_EXC_ERROR;
555: OPEN get_uc_header_rec_csr(p_uc_header_id);
556: FETCH get_uc_header_rec_csr INTO l_top_instance_id;
557: IF ( get_uc_header_rec_csr%NOTFOUND ) THEN
558: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
559: FND_MESSAGE.set_token('UC_HEADER_ID', p_uc_header_id);
560: FND_MSG_PUB.add;
561: CLOSE get_uc_header_rec_csr;
562: RAISE FND_API.G_EXC_ERROR;
563: END IF;
790: --Call procedure to validate the uc header id
791: OPEN get_uc_header_rec_csr(p_uc_header_id);
792: FETCH get_uc_header_rec_csr INTO l_top_instance_id;
793: IF ( get_uc_header_rec_csr%NOTFOUND ) THEN
794: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
795: FND_MESSAGE.set_token('UC_HEADER_ID', p_uc_header_id);
796: FND_MSG_PUB.add;
797: CLOSE get_uc_header_rec_csr;
798: RAISE FND_API.G_EXC_ERROR;
791: OPEN get_uc_header_rec_csr(p_uc_header_id);
792: FETCH get_uc_header_rec_csr INTO l_top_instance_id;
793: IF ( get_uc_header_rec_csr%NOTFOUND ) THEN
794: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
795: FND_MESSAGE.set_token('UC_HEADER_ID', p_uc_header_id);
796: FND_MSG_PUB.add;
797: CLOSE get_uc_header_rec_csr;
798: RAISE FND_API.G_EXC_ERROR;
799: END IF;
831: l_pos_ref_meaning := l_pos_ref_code;
832: END IF;
833:
834: --Building the error message
835: FND_MESSAGE.Set_Name('AHL','AHL_UC_NOTASSIGN_MANDATORY');
836: FND_MESSAGE.Set_Token('POSN_REF',l_pos_ref_meaning);
837:
838: --Writing the message to the error table
839: IF (p_x_error_table.COUNT >0) THEN
832: END IF;
833:
834: --Building the error message
835: FND_MESSAGE.Set_Name('AHL','AHL_UC_NOTASSIGN_MANDATORY');
836: FND_MESSAGE.Set_Token('POSN_REF',l_pos_ref_meaning);
837:
838: --Writing the message to the error table
839: IF (p_x_error_table.COUNT >0) THEN
840: p_x_error_table(p_x_error_table.LAST+1) := FND_MESSAGE.get;
836: FND_MESSAGE.Set_Token('POSN_REF',l_pos_ref_meaning);
837:
838: --Writing the message to the error table
839: IF (p_x_error_table.COUNT >0) THEN
840: p_x_error_table(p_x_error_table.LAST+1) := FND_MESSAGE.get;
841: ELSE
842: p_x_error_table(0) := FND_MESSAGE.get;
843: END IF;
844:
838: --Writing the message to the error table
839: IF (p_x_error_table.COUNT >0) THEN
840: p_x_error_table(p_x_error_table.LAST+1) := FND_MESSAGE.get;
841: ELSE
842: p_x_error_table(0) := FND_MESSAGE.get;
843: END IF;
844:
845: x_evaluation_status := FND_API.G_FALSE;
846:
858: l_pos_ref_meaning := l_pos_ref_code;
859: END IF;
860:
861: --Building the error message
862: FND_MESSAGE.Set_Name('AHL','AHL_UC_NOTASSIGN_MANDATORY');
863: FND_MESSAGE.Set_Token('POSN_REF',l_pos_ref_meaning);
864:
865: --Writing the message to the error table
866: IF (p_x_error_table.COUNT >0) THEN
859: END IF;
860:
861: --Building the error message
862: FND_MESSAGE.Set_Name('AHL','AHL_UC_NOTASSIGN_MANDATORY');
863: FND_MESSAGE.Set_Token('POSN_REF',l_pos_ref_meaning);
864:
865: --Writing the message to the error table
866: IF (p_x_error_table.COUNT >0) THEN
867: p_x_error_table(p_x_error_table.LAST+1) := FND_MESSAGE.get;
863: FND_MESSAGE.Set_Token('POSN_REF',l_pos_ref_meaning);
864:
865: --Writing the message to the error table
866: IF (p_x_error_table.COUNT >0) THEN
867: p_x_error_table(p_x_error_table.LAST+1) := FND_MESSAGE.get;
868: ELSE
869: p_x_error_table(0) := FND_MESSAGE.get;
870: END IF;
871:
865: --Writing the message to the error table
866: IF (p_x_error_table.COUNT >0) THEN
867: p_x_error_table(p_x_error_table.LAST+1) := FND_MESSAGE.get;
868: ELSE
869: p_x_error_table(0) := FND_MESSAGE.get;
870: END IF;
871:
872: END LOOP;
873: CLOSE get_mand_pos_desc_csr;
936: l_pos_ref_meaning := p_position_ref_code;
937: END IF;
938: -- Build the error message
939: IF (p_qty_less_flag = 'Y') THEN
940: FND_MESSAGE.Set_Name('AHL', 'AHL_UC_POS_QTY_LESS');
941: ELSE
942: FND_MESSAGE.Set_Name('AHL', 'AHL_UC_POS_QTY_MORE');
943: END IF;
944: FND_MESSAGE.Set_Token('POSN_REF', l_pos_ref_meaning);
938: -- Build the error message
939: IF (p_qty_less_flag = 'Y') THEN
940: FND_MESSAGE.Set_Name('AHL', 'AHL_UC_POS_QTY_LESS');
941: ELSE
942: FND_MESSAGE.Set_Name('AHL', 'AHL_UC_POS_QTY_MORE');
943: END IF;
944: FND_MESSAGE.Set_Token('POSN_REF', l_pos_ref_meaning);
945: --Writing the message to the error table
946: IF (p_x_error_table.COUNT > 0) THEN
940: FND_MESSAGE.Set_Name('AHL', 'AHL_UC_POS_QTY_LESS');
941: ELSE
942: FND_MESSAGE.Set_Name('AHL', 'AHL_UC_POS_QTY_MORE');
943: END IF;
944: FND_MESSAGE.Set_Token('POSN_REF', l_pos_ref_meaning);
945: --Writing the message to the error table
946: IF (p_x_error_table.COUNT > 0) THEN
947: p_x_error_table(p_x_error_table.LAST + 1) := FND_MESSAGE.get;
948: ELSE
943: END IF;
944: FND_MESSAGE.Set_Token('POSN_REF', l_pos_ref_meaning);
945: --Writing the message to the error table
946: IF (p_x_error_table.COUNT > 0) THEN
947: p_x_error_table(p_x_error_table.LAST + 1) := FND_MESSAGE.get;
948: ELSE
949: p_x_error_table(0) := FND_MESSAGE.get;
950: END IF;
951:
945: --Writing the message to the error table
946: IF (p_x_error_table.COUNT > 0) THEN
947: p_x_error_table(p_x_error_table.LAST + 1) := FND_MESSAGE.get;
948: ELSE
949: p_x_error_table(0) := FND_MESSAGE.get;
950: END IF;
951:
952: END Add_Qty_Message;
953:
1261: ELSE
1262: OPEN get_uc_header_rec_csr;
1263: FETCH get_uc_header_rec_csr INTO l_top_instance_id;
1264: IF (get_uc_header_rec_csr%NOTFOUND) THEN
1265: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
1266: FND_MESSAGE.set_token('UC_HEADER_ID', p_uc_header_id);
1267: FND_MSG_PUB.add;
1268: CLOSE get_uc_header_rec_csr;
1269: RAISE FND_API.G_EXC_ERROR;
1262: OPEN get_uc_header_rec_csr;
1263: FETCH get_uc_header_rec_csr INTO l_top_instance_id;
1264: IF (get_uc_header_rec_csr%NOTFOUND) THEN
1265: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
1266: FND_MESSAGE.set_token('UC_HEADER_ID', p_uc_header_id);
1267: FND_MSG_PUB.add;
1268: CLOSE get_uc_header_rec_csr;
1269: RAISE FND_API.G_EXC_ERROR;
1270: END IF;
1591: -- Call procedure to validate the uc header id
1592: OPEN get_uc_header_rec_csr;
1593: FETCH get_uc_header_rec_csr INTO l_top_instance_id;
1594: IF (get_uc_header_rec_csr%NOTFOUND) THEN
1595: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
1596: FND_MESSAGE.set_token('UC_HEADER_ID', p_uc_header_id);
1597: FND_MSG_PUB.add;
1598: CLOSE get_uc_header_rec_csr;
1599: RAISE FND_API.G_EXC_ERROR;
1592: OPEN get_uc_header_rec_csr;
1593: FETCH get_uc_header_rec_csr INTO l_top_instance_id;
1594: IF (get_uc_header_rec_csr%NOTFOUND) THEN
1595: FND_MESSAGE.set_name('AHL', 'AHL_UC_HEADER_ID_INVALID');
1596: FND_MESSAGE.set_token('UC_HEADER_ID', p_uc_header_id);
1597: FND_MSG_PUB.add;
1598: CLOSE get_uc_header_rec_csr;
1599: RAISE FND_API.G_EXC_ERROR;
1600: END IF;