CREATE OR REPLACE PROCEDURE select_site_content_(i_document_header_id IN document.document_header_id%TYPE,
                                                 i_interface_code     IN document.interface_code%TYPE,
                                                 o_document_header_id OUT document.document_header_id%TYPE,
                                                 o_interface_code     OUT document.interface_code%TYPE,
                                                 o_document_title     OUT document.document_title%TYPE,
                                                 o_text               OUT document.text%TYPE,
                                                 o_port_sub_type_code OUT document.portal_sub_type_code%TYPE,
                                                 o_media_caption      OUT document_media.media_caption%TYPE,
                                                 o_picture_filename   OUT media.filename%TYPE,
                                                 o_url_filename       OUT media.filename%TYPE,
                                                 o_urgency_type_code  OUT document_publishing.urgency_type_code%TYPE,
                                                 o_priority_type_code OUT document_publishing.priority_type_code%TYPE,
                                                 o_date_start         OUT publishing_schedule.date_start%TYPE,
                                                 o_date_end           OUT publishing_schedule.date_end%TYPE) IS
  PROCEDURE log(iMessage VARCHAR2)
  IS
    vMaxLength NUMBER := 200;
    vSpace     NUMBER;
    vMessage   VARCHAR2(32000) := iMessage;
  BEGIN
    LOOP
      EXIT WHEN  vMessage IS NULL;
      vSpace := instr(vMessage, ' ', vMaxLength);
      IF vSpace = 0 THEN
        vSpace := vMaxLength + 1;
      END IF;
      dbms_output.put_line(vMessage, 1, vSpace - 1);
      vMessage := substr(vMessage, vSpace);
    END LOOP;
  END log;
BEGIN
  SELECT doc.document_header_id,
         doc.interface_code,
         doc.document_title,
         doc.text,
         doc.portal_sub_type_code,
         dm1.media_caption,
         m_picture.filename,
         m_url.filename,
         dp.urgency_type_code,
         dp.priority_type_code,
         ps.date_start,
         ps.date_end
  INTO   o_document_header_id,
         o_interface_code,
         o_document_title,
         o_text,
         o_port_sub_type_code,
         o_media_caption,
         o_picture_filename,
         o_url_filename,
         o_urgency_type_code,
         o_priority_type_code,
         o_date_start,
         o_date_end
  FROM   document            doc,
         document_media      dm1,
         document_media      dm2,
         media               m_picture,
         media               m_url,
         document_publishing dp,
         publishing_schedule ps
  WHERE  doc.document_header_id = i_document_header_id
  AND    doc.interface_code = i_interface_code
  AND    doc.document_id = i_interface_code
  AND    doc.document_header_id = dm1.document_header_id(+)
  AND    doc.document_id = dm1.document_id(+)
  AND    doc.document_header_id = dm2.document_header_id(+)
  AND    doc.document_id = dm2.document_id(+)
  AND    dm1.media_id = m_picture.media_id(+)
  AND    m_picture.media_type_code(+) = 10 -- Picture
  AND    m_picture.source_type_code(+) = 20
  AND    dm2.media_id = m_url.media_id(+)
  AND    m_url.media_type_code(+) = 30 -- Redirection/URL Link - External
  AND    m_url.source_type_code(+) = 20
  AND    doc.document_header_id = dp.document_header_id
  AND    dp.document_header_id = ps.document_header_id
  AND    dp.publish_id = ps.publish_id
  AND    rownum < 2;
  --
  log(o_text);
END select_site_content_;

SQL> CREATE OR REPLACE PROCEDURE test_proc(p1 IN VARCHAR2,
  2                                        p2 OUT VARCHAR2)
  3  IS
  4  BEGIN
  5    p2 := p1;
  6  END;
  7  /

Procedure created.

SQL> var x2 varchar2(200);
SQL> exec test_proc('Hello World', :x2);

PL/SQL procedure successfully completed.

SQL> print x2

X2
----------------------------------------------------------------
Hello World

SQL>

DECLARE
  x VARCHAR2(2000);
BEGIN
  test_proc('Hello World', x);
  log(x);
END;