[Home] [Help]
2230: CURSOR get_recipient_rec_info (c_recipient_document_id NUMBER)
2231: IS
2232: SELECT recipient_party_id,
2233: document_id
2234: FROM AHL_RECIPIENT_DOCUMENTS
2235: WHERE recipient_document_id = c_recipient_document_id;
2236:
2237: -- Used to validate the document id
2238: CURSOR check_doc_info(c_document_id NUMBER)
2245: CURSOR dup_rec(c_recipient_party_id NUMBER,
2246: c_document_id NUMBER)
2247: IS
2248: SELECT 'X'
2249: FROM AHL_RECIPIENT_DOCUMENTS
2250: WHERE recipient_party_id = c_recipient_party_id
2251: AND document_id = c_document_id;
2252:
2253: CURSOR DUP_REC_NAME(c_recipient_party_id NUMBER)
2362: CURSOR dup_rec(c_recipient_party_id NUMBER,
2363: c_document_id NUMBER)
2364: IS
2365: SELECT 'X'
2366: FROM AHL_RECIPIENT_DOCUMENTS
2367: WHERE recipient_party_id = c_recipient_party_id
2368: AND document_id = c_document_id;
2369:
2370: CURSOR DUP_REC_NAME(c_recipient_party_id NUMBER)
2469: --ad END IF;
2470: --ad CLOSE dup_rec;
2471: else --ad
2472: --Retrieves the sequence number
2473: SELECT AHL_RECIPIENT_DOCUMENTS_S.Nextval INTO
2474: l_recipient_document_id from DUAL;
2475: --Insert the record into recipient documents
2476: INSERT INTO AHL_RECIPIENT_DOCUMENTS
2477: (
2472: --Retrieves the sequence number
2473: SELECT AHL_RECIPIENT_DOCUMENTS_S.Nextval INTO
2474: l_recipient_document_id from DUAL;
2475: --Insert the record into recipient documents
2476: INSERT INTO AHL_RECIPIENT_DOCUMENTS
2477: (
2478: RECIPIENT_DOCUMENT_ID,
2479: RECIPIENT_PARTY_ID,
2480: DOCUMENT_ID,
2671: attribute12,
2672: attribute13,
2673: attribute14,
2674: attribute15
2675: FROM AHL_RECIPIENT_DOCUMENTS
2676: WHERE recipient_document_id = c_recipient_document_id
2677: FOR UPDATE OF object_version_number NOWAIT;
2678: --
2679: l_api_name CONSTANT VARCHAR2(30) := 'MODIFY_RECIPIENT';
2780: l_recipient_info.attribute13 := p_recipient_tbl(i).attribute13;
2781: l_recipient_info.attribute14 := p_recipient_tbl(i).attribute14;
2782: l_recipient_info.attribute15 := p_recipient_tbl(i).attribute15;
2783: -- update the table
2784: UPDATE AHL_RECIPIENT_DOCUMENTS
2785: SET recipient_party_id = l_recipient_info.recipient_party_id,
2786: document_id = l_recipient_info.document_id,
2787: object_version_number = l_recipient_info.object_version_number+1,
2788: attribute_category = l_recipient_info.attribute_category,
2932: CURSOR get_recipient_rec_info(c_recipient_document_id NUMBER)
2933: IS
2934: SELECT ROWID ,
2935: object_version_number
2936: FROM AHL_RECIPIENT_DOCUMENTS
2937: WHERE recipient_document_id = c_recipient_document_id
2938: FOR UPDATE OF object_version_number NOWAIT;
2939:
2940: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_RECIPIENT';
3000: END IF;
3001: */
3002:
3003: -- Delete the record from suppliers table
3004: DELETE FROM AHL_RECIPIENT_DOCUMENTS
3005: WHERE ROWID = l_rowid;
3006: -- END LOOP;
3007: -- END IF;
3008: --Standarad check for commit