[Home] [Help]
1093: IS
1094: SELECT supplier_id,
1095: document_id,
1096: preference_code
1097: FROM AHL_SUPPLIER_DOCUMENTS
1098: WHERE supplier_document_id = c_supplier_document_id;
1099: -- Used to check Duplicate Record
1100: CURSOR dup_rec(c_supplier_id NUMBER,
1101: c_document_id NUMBER)
1100: CURSOR dup_rec(c_supplier_id NUMBER,
1101: c_document_id NUMBER)
1102: IS
1103: SELECT 'X'
1104: FROM AHL_SUPPLIER_DOCUMENTS
1105: WHERE supplier_id = c_supplier_id
1106: AND document_id = c_document_id;
1107:
1108: -- Perf Bug Fix 4919011.
1275: CURSOR dup_rec(c_supplier_id NUMBER,
1276: c_document_id NUMBER)
1277: IS
1278: SELECT 'X'
1279: FROM AHL_SUPPLIER_DOCUMENTS
1280: WHERE supplier_id = c_supplier_id
1281: AND document_id = c_document_id;
1282:
1283: -- Perf Bug Fix 4919011.
1422: --ad CLOSE dup_rec;
1423:
1424: ELSE
1425: --Retrieve the sequence number
1426: SELECT AHL_SUPPLIER_DOCUMENTS_S.Nextval INTO
1427: l_supplier_document_id from DUAL;
1428: --Insert the record into supplier documents table
1429: INSERT INTO AHL_SUPPLIER_DOCUMENTS
1430: (
1425: --Retrieve the sequence number
1426: SELECT AHL_SUPPLIER_DOCUMENTS_S.Nextval INTO
1427: l_supplier_document_id from DUAL;
1428: --Insert the record into supplier documents table
1429: INSERT INTO AHL_SUPPLIER_DOCUMENTS
1430: (
1431: SUPPLIER_DOCUMENT_ID,
1432: SUPPLIER_ID,
1433: DOCUMENT_ID,
1630: attribute13,
1631: attribute14,
1632: attribute15,
1633: object_version_number
1634: FROM AHL_SUPPLIER_DOCUMENTS
1635: WHERE supplier_document_id = c_supplier_document_id
1636: FOR UPDATE OF object_version_number NOWAIT;
1637:
1638: -- Perf Bug Fix 4919011.
1803:
1804:
1805:
1806: --Updates the supplier table
1807: UPDATE AHL_SUPPLIER_DOCUMENTS
1808: SET supplier_id = l_supplier_info.supplier_id,
1809: document_id = l_supplier_info.document_id,
1810: preference_code = l_supplier_info.preference_code,
1811: object_version_number = l_supplier_info.object_version_number+1,
1987: SELECT ROWID ,
1988: supplier_id,
1989: document_id,
1990: object_version_number
1991: FROM AHL_SUPPLIER_DOCUMENTS
1992: WHERE supplier_document_id = c_supplier_document_id
1993: FOR UPDATE OF object_version_number NOWAIT;
1994: --Cursor to check the record exists in Subscriptions table
1995: --Cursor modified to check only active subscriptions: pjha: 16-Jul-2002
2124: END IF;
2125: CLOSE get_subc_rec;
2126: END IF;
2127: -- Delete the record from suppliers table
2128: DELETE FROM AHL_SUPPLIER_DOCUMENTS
2129: WHERE ROWID = l_rowid;
2130: --END IF;
2131: -- Standard call to get message count
2132: l_msg_count := FND_MSG_PUB.count_msg;