250: PROCEDURE IS_CHECKLIST_PRESENT (
251: p_file_id IN NUMBER,
252: x_checklist_Status OUT NOCOPY VARCHAR2) IS
253:
254: Cursor c1 is select count(*) from fnd_attached_documents
255: where ENTITY_NAME='EDR_FILES_B' and
256: pk1_value=p_file_id and
257: document_id in (select document_id from fnd_documents_vl where category_id in
258: (select category_id
329: where name = 'EDR_ISIGN_ADDL_FILES';
330:
331: --Bug 4381237: Start
332: --Change the call to edr attachment API
333: --fnd_attached_documents2_pkg.copy_attachments
334: edr_attachments_grp.copy_attachments
335: --Bug 4381237: End
336: (X_from_entity_name => 'EDR_FILES_B',
337: X_from_pk1_value => p_file_id,
367: p_file_id IN NUMBER,
368: x_return_Status OUT NOCOPY VARCHAR2) IS
369: l_return_status varchar2(100);
370: l_attach_document_id number;
371: Cursor c1 is select ATTACHED_DOCUMENT_ID from fnd_attached_documents
372: where ENTITY_NAME='EDR_FILES_B' and
373: pk1_value=p_file_id and
374: document_id in (select document_id from fnd_documents_vl where category_id in
375: (select category_id
380: OPEN c1;
381: fetch c1 into l_attach_document_id ;
382: IF c1%FOUND THEN
383: -- Delete Checklist
384: fnd_attached_documents3_pkg.DELETE_ROW(
385: X_ATTACHED_DOCUMENT_ID=> l_attach_document_id ,
386: X_DATATYPE_ID => 6,
387: DELETE_DOCUMENT_FLAG => 'Y');
388: END IF;