[Home] [Help]
150: END IF;
151: -- Standard call to check for call compatibility.
152: IF FND_API.to_boolean(l_init_msg_list)
153: THEN
154: FND_MSG_PUB.initialize;
155: END IF;
156: -- Initialize API return status to success
157: x_return_status := 'S';
158: -- Initialize message list if p_init_msg_list is set to TRUE.
177: IF (p_x_association_tbl(i).document_no IS NULL) OR
178: (p_x_association_tbl(i).document_no = FND_API.G_MISS_CHAR)
179: THEN
180: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_NO_NULL');
181: FND_MSG_PUB.ADD;
182: ELSE
183:
184: OPEN get_doc_id_info(p_x_association_tbl(i).document_no);
185: FETCH get_doc_id_info INTO l_document_id;
187: THEN
188: l_association_tbl(i).document_id := l_document_id;
189: ELSE
190: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_INVALID');
191: FND_MSG_PUB.ADD;
192: END IF;
193: CLOSE get_doc_id_info;
194:
195: OPEN get_doc_rev_count(l_document_id);
206: THEN
207: l_association_tbl(i).doc_revision_id := l_doc_revision_id;
208: ELSE
209: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_REV_ID_INVALID');
210: FND_MSG_PUB.ADD;
211: END IF;
212: CLOSE get_doc_rev_info;
213: ELSIF l_rev_count > 1
214: THEN
220: THEN
221: l_association_tbl(i).doc_revision_id := l_doc_revision_id;
222: ELSE
223: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_REV_ID_INVALID');
224: FND_MSG_PUB.ADD;
225: END IF;
226: CLOSE get_doc_rev_id_info;
227: END IF;
228: END IF;
242:
243: IF nvl(l_return_status, 'X') <> 'S'
244: THEN
245: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ASO_OBJ_TYP_NOT_EXISTS');
246: FND_MSG_PUB.ADD;
247: END IF;
248: END IF;
249: -- If Type Code presents
250: IF p_x_association_tbl(i).aso_object_type_code IS NOT NULL AND
253: l_association_tbl(i).aso_object_type_code := p_x_association_tbl(i).aso_object_type_code;
254: --If both missing
255: ELSE
256: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ASO_OBJECT_TYPE_NULL');
257: FND_MSG_PUB.ADD;
258: END IF;
259: l_association_tbl(i).aso_object_id := p_x_association_tbl(i).aso_object_id;
260: l_association_tbl(i).use_latest_rev_flag := p_x_association_tbl(i).use_latest_rev_flag;
261: l_association_tbl(i).serial_no := p_x_association_tbl(i).serial_no;
284: l_association_tbl(i).attribute15 := p_x_association_tbl(i).attribute15;
285: l_association_tbl(i).delete_flag := p_x_association_tbl(i).delete_flag;
286: l_association_tbl(i).object_version_number := p_x_association_tbl(i).object_version_number;
287: --Standard check to count messages
288: l_msg_count := FND_MSG_PUB.count_msg;
289: IF l_msg_count > 0 THEN
290: X_msg_count := l_msg_count;
291: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292: RAISE FND_API.G_EXC_ERROR;
364: x_msg_data => l_msg_data
365: );
366:
367: --Standard check to count messages
368: l_msg_count := FND_MSG_PUB.count_msg;
369:
370: IF l_msg_count > 0 THEN
371: X_msg_count := l_msg_count;
372: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
455: EXCEPTION
456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
457: ROLLBACK TO create_association;
458: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
459: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
460: p_count => x_msg_count,
461: p_data => x_msg_data);
462: --Debug Info
463: IF G_DEBUG='Y' THEN
479:
480: WHEN FND_API.G_EXC_ERROR THEN
481: ROLLBACK TO create_association;
482: X_return_status := FND_API.G_RET_STS_ERROR;
483: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
484: p_count => l_msg_count,
485: p_data => X_msg_data);
486: x_msg_count := l_msg_count;
487:
498:
499: WHEN OTHERS THEN
500: ROLLBACK TO create_association;
501: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
502: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
503: THEN
504: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_ASO_PUB',
505: p_procedure_name => 'CREATE_ASSOCIATION',
506: p_error_text => SUBSTR(SQLERRM,1,240));
500: ROLLBACK TO create_association;
501: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
502: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
503: THEN
504: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_ASO_PUB',
505: p_procedure_name => 'CREATE_ASSOCIATION',
506: p_error_text => SUBSTR(SQLERRM,1,240));
507: END IF;
508: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
504: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_ASO_PUB',
505: p_procedure_name => 'CREATE_ASSOCIATION',
506: p_error_text => SUBSTR(SQLERRM,1,240));
507: END IF;
508: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
509: p_count => l_msg_count,
510: p_data => X_msg_data);
511: x_msg_count := l_msg_count;
512: -- Debug info.
617: END IF;
618: -- Standard call to check for call compatibility.
619: IF FND_API.to_boolean(l_init_msg_list)
620: THEN
621: FND_MSG_PUB.initialize;
622: END IF;
623: -- Initialize API return status to success
624: x_return_status := 'S';
625: -- Initialize message list if p_init_msg_list is set to TRUE.
647: IF (p_x_association_tbl(i).document_no IS NULL) OR
648: (p_x_association_tbl(i).document_no = FND_API.G_MISS_CHAR)
649: THEN
650: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_NO_NULL');
651: FND_MSG_PUB.ADD;
652: ELSE
653: -- For document id
654: OPEN get_doc_id_info(p_x_association_tbl(i).document_no);
655: FETCH get_doc_id_info INTO l_document_id;
657: THEN
658: l_association_tbl(i).document_id := l_document_id;
659: ELSE
660: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_INVALID');
661: FND_MSG_PUB.ADD;
662: END IF;
663: CLOSE get_doc_id_info;
664:
665: -- For count of rev for the document
680: THEN
681: l_association_tbl(i).doc_revision_id := l_doc_revision_id;
682: ELSE
683: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_REV_ID_INVALID');
684: FND_MSG_PUB.ADD;
685: END IF;
686: CLOSE get_doc_rev_info;
687: -- if more than one rev are present then check if the rev id passes is valid else throw error
688: ELSIF l_rev_count > 1
695: THEN
696: l_association_tbl(i).doc_revision_id := l_doc_revision_id;
697: ELSE
698: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_REV_ID_INVALID');
699: FND_MSG_PUB.ADD;
700: END IF;
701: CLOSE get_doc_rev_id_info;
702: END IF;
703: END IF;
721: THEN
722: l_association_tbl(i).document_id := l_document_id;
723: ELSE
724: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_INVALID');
725: FND_MSG_PUB.ADD;
726: END IF;
727: CLOSE get_doc_id_info;
728: --If Document Id is present
729: ELSIF (p_x_association_tbl(i).document_id IS NOT NULL) AND
751: THEN
752: l_association_tbl(i).doc_revision_id := l_doc_revision_id;
753: ELSE
754: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_REV_ID_INVALID');
755: FND_MSG_PUB.ADD;
756: END IF;
757: CLOSE get_doc_rev_id_info;
758: --If Doc Revision Id is present
759: ELSIF (p_x_association_tbl(i).doc_revision_id IS NOT NULL) AND
780:
781: IF nvl(l_return_status, 'X') <> 'S'
782: THEN
783: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ASO_OBJ_TYPE_NOT_EXISTS');
784: FND_MSG_PUB.ADD;
785: END IF;
786: END IF;
787: -- If Type Code presents
788: IF p_x_association_tbl(i).aso_object_type_code IS NOT NULL AND
823: l_association_tbl(i).attribute15 := p_x_association_tbl(i).attribute15;
824: l_association_tbl(i).delete_flag := p_x_association_tbl(i).delete_flag;
825: l_association_tbl(i).object_version_number := p_x_association_tbl(i).object_version_number;
826: --Standard check to count messages
827: l_msg_count := FND_MSG_PUB.count_msg;
828:
829: IF l_msg_count > 0 THEN
830: X_msg_count := l_msg_count;
831: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
897: x_msg_count => l_msg_count,
898: x_msg_data => l_msg_data
899: );
900: --Standard check to count messages
901: l_msg_count := FND_MSG_PUB.count_msg;
902:
903: IF l_msg_count > 0 THEN
904: X_msg_count := l_msg_count;
905: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
974: EXCEPTION
975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
976: ROLLBACK TO modify_association;
977: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
978: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
979: p_count => x_msg_count,
980: p_data => x_msg_data);
981: --Debug Info
982: IF G_DEBUG='Y' THEN
990:
991: WHEN FND_API.G_EXC_ERROR THEN
992: ROLLBACK TO modify_association;
993: X_return_status := FND_API.G_RET_STS_ERROR;
994: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
995: p_count => x_msg_count,
996: p_data => X_msg_data);
997: -- Debug info.
998: IF G_DEBUG='Y' THEN
1006:
1007: WHEN OTHERS THEN
1008: ROLLBACK TO modify_association;
1009: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1010: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1011: THEN
1012: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_ASO_PUB',
1013: p_procedure_name => 'MODIFY_ASSOCIATION',
1014: p_error_text => SUBSTR(SQLERRM,1,240));
1008: ROLLBACK TO modify_association;
1009: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1010: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1011: THEN
1012: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_ASO_PUB',
1013: p_procedure_name => 'MODIFY_ASSOCIATION',
1014: p_error_text => SUBSTR(SQLERRM,1,240));
1015: END IF;
1016: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1012: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_ASO_PUB',
1013: p_procedure_name => 'MODIFY_ASSOCIATION',
1014: p_error_text => SUBSTR(SQLERRM,1,240));
1015: END IF;
1016: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1017: p_count => x_msg_count,
1018: p_data => X_msg_data);
1019:
1020: -- Debug info.
1099: END IF;
1100: -- Standard call to check for call compatibility.
1101: IF FND_API.to_boolean(l_init_msg_list)
1102: THEN
1103: FND_MSG_PUB.initialize;
1104: END IF;
1105: -- Initialize API return status to success
1106: x_return_status := 'S';
1107: -- Initialize message list if p_init_msg_list is set to TRUE.
1137: THEN
1138: l_association_tbl(i).document_id := l_document_id;
1139: ELSE
1140: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_INVALID');
1141: FND_MSG_PUB.ADD;
1142: END IF;
1143: CLOSE get_doc_id_info;
1144: --If Document Id is present
1145: ELSIF (p_x_association_tblm(i).document_id IS NOT NULL) AND
1166: THEN
1167: l_association_tbl(i).doc_revision_id := l_doc_revision_id;
1168: ELSE
1169: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_REV_ID_INVALID');
1170: FND_MSG_PUB.ADD;
1171: END IF;
1172: CLOSE get_doc_rev_id_info;
1173: --If Doc Revision Id is present
1174: ELSIF (p_x_association_tblm(i).doc_revision_id IS NOT NULL) AND
1192:
1193: IF nvl(l_return_status, 'X') <> 'S'
1194: THEN
1195: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ASO_OBJ_TYPE_NOT_EXISTS');
1196: FND_MSG_PUB.ADD;
1197: END IF;
1198: END IF;
1199: -- If Type Code presents
1200: IF p_x_association_tblm(i).aso_object_type_code IS NOT NULL AND
1220:
1221: IF nvl(l_return_status, 'X') <> 'S'
1222: THEN
1223: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SOURCE_REF_NOT_EXISTS');
1224: FND_MSG_PUB.ADD;
1225: END IF;
1226: END IF;
1227:
1228: -- If Type Code presents
1265: l_association_tbl(i).attribute15 := p_x_association_tblm(i).attribute15;
1266: l_association_tbl(i).delete_flag := p_x_association_tblm(i).delete_flag;
1267: l_association_tbl(i).object_version_number := p_x_association_tblm(i).object_version_number;
1268: --Standard check to count messages
1269: l_msg_count := FND_MSG_PUB.count_msg;
1270:
1271: IF l_msg_count > 0 THEN
1272: X_msg_count := l_msg_count;
1273: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1298: x_msg_count => l_msg_count,
1299: x_msg_data => l_msg_data
1300: );
1301: --Standard check to count messages
1302: l_msg_count := FND_MSG_PUB.count_msg;
1303:
1304: IF l_msg_count > 0 THEN
1305: X_msg_count := l_msg_count;
1306: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1333: THEN
1334: l_association_tblc(i).document_id := l_document_id;
1335: ELSE
1336: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_INVALID');
1337: FND_MSG_PUB.ADD;
1338: END IF;
1339: CLOSE get_doc_id_info;
1340: ELSE
1341: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_INVALID');
1338: END IF;
1339: CLOSE get_doc_id_info;
1340: ELSE
1341: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_INVALID');
1342: FND_MSG_PUB.ADD;
1343: END IF;
1344:
1345: --If Document Id is present
1346: ELSIF (p_x_association_tblc(i).document_id IS NOT NULL) AND
1349: l_association_tblc(i).document_id := p_x_association_tblc(i).document_id;
1350: ELSE
1351: --Both Document Id and Name are missing
1352: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_ID_NOT_EXISTS');
1353: FND_MSG_PUB.ADD;
1354: END IF;
1355: -- For Document Revision Id
1356: IF (p_x_association_tblc(i).doc_revision_id IS NULL OR
1357: p_x_association_tblc(i).doc_revision_id = FND_API.G_MISS_NUM)
1369: THEN
1370: l_association_tblc(i).doc_revision_id := l_doc_revision_id;
1371: ELSE
1372: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_REV_ID_INVALID');
1373: FND_MSG_PUB.ADD;
1374: END IF;
1375: CLOSE get_doc_rev_id_info;
1376: ELSE
1377: l_association_tblc(i).doc_revision_id := p_x_association_tblc(i).doc_revision_id;
1400:
1401: IF nvl(l_return_status, 'X') <> 'S'
1402: THEN
1403: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ASO_OBJ_TYP_NOT_EXISTS');
1404: FND_MSG_PUB.ADD;
1405: END IF;
1406: END IF;
1407: -- If Type Code presents
1408: IF p_x_association_tblc(i).aso_object_type_code IS NOT NULL AND
1411: l_association_tblc(i).aso_object_type_code := p_x_association_tblc(i).aso_object_type_code;
1412: --If both missing
1413: ELSE
1414: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ASO_OBJECT_TYPE_NULL');
1415: FND_MSG_PUB.ADD;
1416: END IF;
1417: -- For Source Ref Code, meaning presents
1418: /* IF p_x_association_tblc(i).source_ref_mean IS NOT NULL AND
1419: p_x_association_tblc(i).source_ref_mean <> FND_API.G_MISS_CHAR
1429:
1430: IF nvl(l_return_status, 'X') <> 'S'
1431: THEN
1432: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SOURCE_REF_NOT_EXISTS');
1433: FND_MSG_PUB.ADD;
1434: END IF;
1435: END IF; */
1436: IF G_DEBUG='Y' THEN
1437: IF G_DEBUG='Y' THEN
1479: l_association_tblc(i).attribute15 := p_x_association_tblc(i).attribute15;
1480: l_association_tblc(i).delete_flag := p_x_association_tblc(i).delete_flag;
1481: l_association_tblc(i).object_version_number := p_x_association_tblc(i).object_version_number;
1482: --Standard check to count messages
1483: l_msg_count := FND_MSG_PUB.count_msg;
1484: IF l_msg_count > 0 THEN
1485: X_msg_count := l_msg_count;
1486: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1487: RAISE FND_API.G_EXC_ERROR;
1514: x_msg_data => l_msg_data
1515: );
1516:
1517: --Standard check to count messages
1518: l_msg_count := FND_MSG_PUB.count_msg;
1519:
1520: IF l_msg_count > 0 THEN
1521: X_msg_count := l_msg_count;
1522: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1551: EXCEPTION
1552: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1553: ROLLBACK TO PROCESS_association;
1554: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1555: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1556: p_count => x_msg_count,
1557: p_data => x_msg_data);
1558: --Debug Info
1559: IF G_DEBUG='Y' THEN
1569:
1570: WHEN FND_API.G_EXC_ERROR THEN
1571: ROLLBACK TO PROCESS_association;
1572: X_return_status := FND_API.G_RET_STS_ERROR;
1573: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1574: p_count => x_msg_count,
1575: p_data => X_msg_data);
1576: -- Debug info.
1577: IF G_DEBUG='Y' THEN
1585:
1586: WHEN OTHERS THEN
1587: ROLLBACK TO PROCESS_association;
1588: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1589: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1590: THEN
1591: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_ASO_PUB',
1592: p_procedure_name => 'PROCESS_ASSOCIATION',
1593: p_error_text => SUBSTR(SQLERRM,1,240));
1587: ROLLBACK TO PROCESS_association;
1588: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1589: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1590: THEN
1591: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_ASO_PUB',
1592: p_procedure_name => 'PROCESS_ASSOCIATION',
1593: p_error_text => SUBSTR(SQLERRM,1,240));
1594: END IF;
1595: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1591: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_ASSO_DOC_ASO_PUB',
1592: p_procedure_name => 'PROCESS_ASSOCIATION',
1593: p_error_text => SUBSTR(SQLERRM,1,240));
1594: END IF;
1595: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1596: p_count => x_msg_count,
1597: p_data => X_msg_data);
1598:
1599: -- Debug info.