5: PROCEDURE GET_ERECORD_TEXT(p_erecord_id IN NUMBER,
6: x_text_erecord OUT NOCOPY VARCHAR2,
7: x_error_msg OUT NOCOPY VARCHAR2)
8: IS
9: l_document EDR_PSIG.DOCUMENT;
10: l_docparams EDR_PSIG.params_table;
11: l_signatures EDR_PSIG.SignatureTable;
12: l_error_num NUMBER := null;
13: EDR_PSIG_DOCERR EXCEPTION;
6: x_text_erecord OUT NOCOPY VARCHAR2,
7: x_error_msg OUT NOCOPY VARCHAR2)
8: IS
9: l_document EDR_PSIG.DOCUMENT;
10: l_docparams EDR_PSIG.params_table;
11: l_signatures EDR_PSIG.SignatureTable;
12: l_error_num NUMBER := null;
13: EDR_PSIG_DOCERR EXCEPTION;
14:
7: x_error_msg OUT NOCOPY VARCHAR2)
8: IS
9: l_document EDR_PSIG.DOCUMENT;
10: l_docparams EDR_PSIG.params_table;
11: l_signatures EDR_PSIG.SignatureTable;
12: l_error_num NUMBER := null;
13: EDR_PSIG_DOCERR EXCEPTION;
14:
15: BEGIN
9: l_document EDR_PSIG.DOCUMENT;
10: l_docparams EDR_PSIG.params_table;
11: l_signatures EDR_PSIG.SignatureTable;
12: l_error_num NUMBER := null;
13: EDR_PSIG_DOCERR EXCEPTION;
14:
15: BEGIN
16: --Obtain the document details from the evidence for the specified e-record ID.
17: EDR_PSIG.getDocumentDetails(P_DOCUMENT_ID => p_erecord_id,
13: EDR_PSIG_DOCERR EXCEPTION;
14:
15: BEGIN
16: --Obtain the document details from the evidence for the specified e-record ID.
17: EDR_PSIG.getDocumentDetails(P_DOCUMENT_ID => p_erecord_id,
18: P_DOCUMENT => l_document,
19: P_DOCPARAMS => l_docparams,
20: P_SIGNATURES => l_signatures,
21: P_ERROR => l_error_num,
22: P_ERROR_MSG => x_error_msg);
23:
24: --Raise an error based on the value of l_error_num.
25: if(l_error_num is not null) then
26: raise EDR_PSIG_DOCERR;
27: end if;
28:
29: --We would be performing the following operations.
30: --If e-record is of type "text" then we attempt to read only 32K of data.