Script to update Service Request Note in CRM

SET SERVEROUTPUT ON;
DECLARE
 lc_return_status             VARCHAR2(1);
 ln_msg_count                 NUMBER;
 lc_msg_data                  VARCHAR2(5000);
 lc_msg_dummy                 VARCHAR2(5000);
 lc_output                    VARCHAR2(5000);
BEGIN
fnd_global. apps_initialize (1238, 57180, 514);
JTF_NOTES_PUB.UPDATE_NOTE
                         ( p_api_version           => 1.0,
                           p_init_msg_list         => 'F',
                           p_commit                => 'F',
                           x_return_status         => lc_return_status,
                           x_msg_count             => ln_msg_count,
                           x_msg_data              => lc_msg_data,
                           p_jtf_note_id           => 14934254,
                           p_entered_by            => 24209,
                           p_last_updated_by       => 1238,               -- 'CONVERSION' User
                           p_notes                 => 'Distributor has sent the SO141656 to send the sapre part to them . MIR.',
                           p_notes_detail          => NULL,
                           p_note_status           => 'E',
                           p_note_type             => 'CS_PROBLEM'
);
  IF (lc_return_status = 'S') THEN
   dbms_output.put_line('Note Updated Sucessfully');
   COMMIT;
  ELSE
      BEGIN
          FOR i IN 1 .. ln_msg_count
          LOOP
            fnd_msg_pub.get (i, fnd_api.g_false, lc_msg_data, lc_msg_dummy);
            lc_output := (TO_CHAR (i) || ': ' || lc_msg_data);
          END LOOP;
            dbms_output.put_line('Error :'||lc_output);
      END;
    ROLLBACK;
   END IF;
END;
/