138: OPEN get_operation_status(p_aso_object_id);
139: FETCH get_operation_status INTO l_status;
140: CLOSE get_operation_status;
141: IF l_status <> 'DRAFT' THEN
142: FND_MESSAGE.SET_NAME('AHL','AHL_RM_OP_STAT_DRFT_ASO');
143: FND_MSG_PUB.ADD;
144: RETURN;
145: END IF;
146: END IF;
149: OPEN get_route_status(p_aso_object_id);
150: FETCH get_route_status INTO l_status;
151: CLOSE get_route_status;
152: IF l_status <> 'DRAFT' THEN
153: FND_MESSAGE.SET_NAME('AHL','AHL_RM_ROU_STAT_DRFT_ASO');
154: FND_MSG_PUB.ADD;
155: RETURN;
156: END IF;
157: END IF;
163: CLOSE get_doc_status;
164: --Modified pjha 29-Aug-2002 for bug 2459649: status check has been removed
165: --IF l_status <> 'CURRENT' OR l_obsolete_date < sysdate THEN
166: IF l_obsolete_date < sysdate THEN
167: FND_MESSAGE.SET_NAME('AHL','AHL_RM_DOC_INVALID');
168: FND_MESSAGE.SET_TOKEN('RECORD',l_document_no);
169: FND_MSG_PUB.ADD;
170: RETURN;
171: END IF;
164: --Modified pjha 29-Aug-2002 for bug 2459649: status check has been removed
165: --IF l_status <> 'CURRENT' OR l_obsolete_date < sysdate THEN
166: IF l_obsolete_date < sysdate THEN
167: FND_MESSAGE.SET_NAME('AHL','AHL_RM_DOC_INVALID');
168: FND_MESSAGE.SET_TOKEN('RECORD',l_document_no);
169: FND_MSG_PUB.ADD;
170: RETURN;
171: END IF;
172: END IF;
209:
210: ((p_doc_title_asso_id IS NOT NULL OR p_doc_title_asso_id <> FND_API.G_MISS_NUM)
211: AND l_document_id IS NULL)
212: THEN
213: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
214: FND_MSG_PUB.ADD;
215: END IF;
216: -- This condition checks for Aso Object Type Code is Null
217: IF ((p_doc_title_asso_id IS NULL OR p_doc_title_asso_id = FND_API.G_MISS_NUM) AND
220:
221: ((p_doc_title_asso_id IS NOT NULL OR p_doc_title_asso_id <> FND_API.G_MISS_NUM)
222: AND l_aso_object_type_code IS NULL)
223: THEN
224: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ASO_OBJECT_TYPE_NULL');
225: FND_MSG_PUB.ADD;
226: END IF;
227: -- This condiiton checks for Aso Object Id Value Is Null
228: IF ((p_doc_title_asso_id IS NULL OR p_doc_title_asso_id = FND_API.G_MISS_NUM) AND
231:
232: ((p_doc_title_asso_id IS NOT NULL OR p_doc_title_asso_id <> FND_API.G_MISS_NUM)
233: AND l_aso_object_id IS NULL)
234: THEN
235: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ASO_OBJECT_ID_NULL');
236: FND_MSG_PUB.ADD;
237: END IF;
238: --Check for Aso Object Type Code in fnd lookups
239: IF p_aso_object_type_code IS NOT NULL AND p_aso_object_type_code <> FND_API.G_MISS_CHAR
241: OPEN get_aso_obj_type_code(p_aso_object_type_code);
242: FETCH get_aso_obj_type_code INTO l_dummy;
243: IF get_aso_obj_type_code%NOTFOUND
244: THEN
245: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ASO_OBJ_TYPE_NOT_EXISTS');
246: FND_MSG_PUB.ADD;
247: END IF;
248: CLOSE get_aso_obj_type_code;
249: END IF;
253: OPEN Check_doc_info(p_document_id);
254: FETCH Check_doc_info INTO l_dummy;
255: IF Check_doc_info%NOTFOUND
256: THEN
257: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NOT_EXISTS');
258: FND_MSG_PUB.ADD;
259: END IF;
260: CLOSE Check_doc_info;
261: END IF;
266: p_doc_revision_id);
267: FETCH dup_rec INTO l_dummy;
268: IF dup_rec%FOUND
269: THEN
270: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
271: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_document_no);
272: FND_MSG_PUB.ADD;
273: END IF;
274: CLOSE dup_rec;
267: FETCH dup_rec INTO l_dummy;
268: IF dup_rec%FOUND
269: THEN
270: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
271: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_document_no);
272: FND_MSG_PUB.ADD;
273: END IF;
274: CLOSE dup_rec;
275: END IF;
341: FETCH get_doc_assos_rec_b_info INTO l_rowid,
342: l_object_version_number;
343: IF (get_doc_assos_rec_b_info%NOTFOUND)
344: THEN
345: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TL_REC_INVALID');
346: FND_MSG_PUB.ADD;
347: END IF;
348: CLOSE get_doc_assos_rec_b_info;
349:
349:
350: -- Check for version number
351: IF (l_object_version_number <> p_association_rec.object_version_number)
352: THEN
353: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_TL_REC_CHANGED');
354: FND_MSG_PUB.ADD;
355: END IF;
356: /*-------------------------------------------------------- */
357: /* procedure name: AHL_DOC_TITLE_ASSOS_PKG.DELETE_ROW */
807: FETCH get_doc_num INTO l_document_no;
808: CLOSE get_doc_num;
809:
810:
811: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
812: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_document_no);
813: FND_MSG_PUB.ADD;
814: RAISE FND_API.G_EXC_ERROR;
815: END IF;
808: CLOSE get_doc_num;
809:
810:
811: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
812: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_document_no);
813: FND_MSG_PUB.ADD;
814: RAISE FND_API.G_EXC_ERROR;
815: END IF;
816: CLOSE dup_rec;
835: IF G_DEBUG='Y' THEN
836: AHL_DEBUG_PUB.debug('DCAB -- DUP CHECK FOUND ');
837:
838: END IF;
839: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
840: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_document_no);
841: FND_MSG_PUB.ADD;
842: RAISE FND_API.G_EXC_ERROR;
843: END IF;
836: AHL_DEBUG_PUB.debug('DCAB -- DUP CHECK FOUND ');
837:
838: END IF;
839: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
840: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_document_no);
841: FND_MSG_PUB.ADD;
842: RAISE FND_API.G_EXC_ERROR;
843: END IF;
844: CLOSE dup_rec_check;
1181: -- updating same record...02/05/02
1182:
1183: if (l_association_info.object_version_number <>p_x_association_tbl(i).object_version_number)
1184: then
1185: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1186: FND_MSG_PUB.ADD;
1187: RAISE FND_API.G_EXC_ERROR;
1188: end if;
1189: IF NVL(p_x_association_tbl(i).document_id, 0) <> FND_API.G_MISS_NUM
1366: p_x_association_tbl(j).doc_revision_id = p_x_association_tbl(i).doc_revision_id
1367: )
1368: THEN
1369:
1370: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1371: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_document_no);
1372: FND_MSG_PUB.ADD;
1373: RAISE FND_API.G_EXC_ERROR;
1374:
1367: )
1368: THEN
1369:
1370: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1371: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_document_no);
1372: FND_MSG_PUB.ADD;
1373: RAISE FND_API.G_EXC_ERROR;
1374:
1375: END IF;
1377:
1378: END LOOP;
1379: IF l_found_flag = 'N'
1380: THEN
1381: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1382: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_document_no);
1383: FND_MSG_PUB.ADD;
1384: RAISE FND_API.G_EXC_ERROR;
1385: END IF;
1378: END LOOP;
1379: IF l_found_flag = 'N'
1380: THEN
1381: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1382: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_document_no);
1383: FND_MSG_PUB.ADD;
1384: RAISE FND_API.G_EXC_ERROR;
1385: END IF;
1386:
1418: p_x_association_tbl(j).figure = p_x_association_tbl(i).figure
1419: )
1420: THEN
1421:
1422: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1423: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_document_no);
1424: FND_MSG_PUB.ADD;
1425: RAISE FND_API.G_EXC_ERROR;
1426:
1419: )
1420: THEN
1421:
1422: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1423: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_document_no);
1424: FND_MSG_PUB.ADD;
1425: RAISE FND_API.G_EXC_ERROR;
1426:
1427: END IF;
1429:
1430: END LOOP;
1431: IF l_found_flag = 'N'
1432: THEN
1433: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1434: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_document_no);
1435: FND_MSG_PUB.ADD;
1436: RAISE FND_API.G_EXC_ERROR;
1437: END IF;
1430: END LOOP;
1431: IF l_found_flag = 'N'
1432: THEN
1433: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1434: FND_MESSAGE.SET_TOKEN('DUPRECORD',l_document_no);
1435: FND_MSG_PUB.ADD;
1436: RAISE FND_API.G_EXC_ERROR;
1437: END IF;
1438:
1875: p_association_rec.document_id,
1876: p_association_rec.doc_revision_id);
1877: FETCH dup_rec INTO l_dummy;
1878: IF dup_rec%FOUND THEN
1879: Fnd_Message.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1880: Fnd_Message.SET_TOKEN('DUPRECORD',l_document_no);
1881: Fnd_Msg_Pub.ADD;
1882: RAISE Fnd_Api.G_EXC_ERROR;
1883: END IF;
1876: p_association_rec.doc_revision_id);
1877: FETCH dup_rec INTO l_dummy;
1878: IF dup_rec%FOUND THEN
1879: Fnd_Message.SET_NAME('AHL','AHL_DI_DOC_ASSOS_DUP_RECORD');
1880: Fnd_Message.SET_TOKEN('DUPRECORD',l_document_no);
1881: Fnd_Msg_Pub.ADD;
1882: RAISE Fnd_Api.G_EXC_ERROR;
1883: END IF;
1884: CLOSE dup_rec;
2100: AND object_version_number
2101: = l_association_rec.object_version_number
2102: FOR UPDATE OF aso_object_id NOWAIT;
2103: EXCEPTION WHEN TIMEOUT_ON_RESOURCE THEN
2104: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2105: Fnd_Msg_Pub.ADD;
2106: x_msg_data := 'AHL_COM_RECORD_CHANGED';
2107: x_return_status := 'E' ;
2108: WHEN NO_DATA_FOUND THEN
2105: Fnd_Msg_Pub.ADD;
2106: x_msg_data := 'AHL_COM_RECORD_CHANGED';
2107: x_return_status := 'E' ;
2108: WHEN NO_DATA_FOUND THEN
2109: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2110: Fnd_Msg_Pub.ADD;
2111: x_msg_data := 'AHL_COM_RECORD_CHANGED';
2112: x_return_status := 'E' ;
2113: WHEN OTHERS THEN
2111: x_msg_data := 'AHL_COM_RECORD_CHANGED';
2112: x_return_status := 'E' ;
2113: WHEN OTHERS THEN
2114: IF SQLCODE = -54 THEN
2115: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
2116: Fnd_Msg_Pub.ADD;
2117: x_msg_data := 'AHL_COM_RECORD_CHANGED';
2118: x_return_status := 'E' ;
2119: ELSE