Project template creation in PA using standard API.

pa_proj_template_setup_pub.create_project_template to create Project template in Project Accounts

DECLARE

   l_template_id     NUMBER;

   l_return_status   VARCHAR2 (2);

   l_msg_count       NUMBER;

   l_msg_data        VARCHAR2 (250);

   l_msg_index_out   NUMBER          := 0;

   l_msg_data1       VARCHAR2 (2000);

BEGIN

   mo_global.init ('PA');

   pa_proj_template_setup_pub.create_project_template

                                 (p_api_version              => 1,

                                  p_init_msg_list            => 'T',

                                  p_commit                   => 'F',

                                  p_validate_only            => 'T',

                                  p_validation_level         => 1,

                                  p_calling_module           => 'SELF_SERVICE',

                                  p_debug_mode               => 'N',

                                  p_max_msg_count            => 1,

                                  p_project_number           => 'Cost',

                                  p_project_name             => 'Cost',

                                  p_project_type             => 'Construction',

                                  p_organization_id          => 246,

                                  p_organization_name        => 'VisionCorporation',

                                  p_effective_from_date      => '23-may-2011',

                                  p_effective_to_date        => '24-may-2011',

                                  p_description              => 'JUNK_CHARS',

                                  p_security_level           => 0,

                                  p_long_name                => NULL,

                                  p_operating_unit_id        => 202,

                                  x_template_id              => l_template_id,

                                  x_return_status            => l_return_status,

                                  x_msg_count                => l_msg_count,

                                  x_msg_data                 => l_msg_data

                                 );

   DBMS_OUTPUT.put_line ('l_return_statusd: ' || l_return_status);

   DBMS_OUTPUT.put_line ('l_msg_data: ' || l_msg_data);

   DBMS_OUTPUT.put_line ('l_msg_count :' || l_msg_count);

   DBMS_OUTPUT.put_line ('Template_id: ' || l_template_id);

   IF (l_return_status = 'E' AND l_msg_count > 0)

   THEN

      FOR i IN 1 .. fnd_msg_pub.count_msg

      LOOP

         fnd_msg_pub.get (p_msg_index          => i,

                          p_data               => l_msg_data,

                          p_encoded            => 'F',

                          p_msg_index_out      => l_msg_index_out

                         );

         l_msg_data1 := l_msg_data1 || ' ' || l_msg_data;

         DBMS_OUTPUT.put_line ('Value is' || l_msg_data1);

      END LOOP;

   END IF;

END;

/