Delete document attachments using API

Begin
l_entity_name FND_ATTACHED_DOCUMENTS.entity_name%type;
l_pk1_value FND_ATTACHED_DOCUMENTS.pk1_Value%type;
l_delete_document_flag varchar2 (1)   :=  'Y';    
l_user_id Number;
l_responsibility_id Number;
l_resp_application_id Number;
BEGIN

fnd_global.apps_initialize ( user_id          =>  l_user_id
                                      ,resp_id          =>  l_responsibility_id
                                      ,resp_appl_id  =>  l_resp_application_id);

fnd_attached_documents2_pkg.delete_attachments
( X_entity_name                 =>  l_entity_name
, X_pk1_value                    =>   l_pk1_value
, X_delete_document_flag   =>   l_delete_document_flag);

commit;
END;