[LIST TYPE=1]
[/LIST]
CREATE OR REPLACE PROCEDURE apps.xxpq_inactivate_party_site (
   p_party_site_number      IN     VARCHAR2,
   p_err_flag           OUT VARCHAR2,
   p_err_msg            OUT VARCHAR2)
AS
   l_party_site_rec          apps.hz_party_site_v2pub.PARTY_SITE_REC_TYPE;
   x_return_status           VARCHAR2 (2000);
   x_msg_count               NUMBER;
   x_msg_data                VARCHAR2 (2000);
   l_party_site_id           NUMBER;
   l_object_version_number   NUMBER;
BEGIN
   p_err_flag := 'N';
   p_err_msg := NULL;

   BEGIN
      SELECT PARTY_SITE_ID, OBJECT_VERSION_NUMBER
        INTO l_party_site_id, l_object_version_number
        FROM apps.HZ_PARTY_SITES
       WHERE party_site_number = p_party_site_number;
   EXCEPTION
      WHEN OTHERS
      THEN
         p_err_flag := 'E';
         p_err_msg :=
               'Error in getting Party Site id for Party Site number:'
            || p_party_site_number
            || ':'
            || SQLERRM;
         apps.fnd_file.put_line (
            apps.fnd_file.LOG,
               'Error in getting Party Site id for Party Site number:'
            || p_party_site_number
            || ':'
            || SQLERRM);
         DBMS_OUTPUT.put_line (
               'Error in getting Party Site id for Party Site number:'
            || p_party_site_number
            || ':'
            || SQLERRM);
   END;

   IF P_err_flag = 'N'
   THEN
      l_party_site_rec.PARTY_SITE_ID :=l_party_site_id ;
      l_party_site_rec.status := 'I';

      apps.hz_party_site_v2pub.update_party_site (
         p_init_msg_list           => apps.FND_API.G_TRUE,
         p_party_site_rec          => l_party_site_rec,
         p_object_version_number   => l_object_version_number,
         x_return_status           => x_return_status,
         x_msg_count               => x_msg_count,
         x_msg_count               => x_msg_data);

      IF x_return_status = apps.fnd_api.g_ret_sts_success
      THEN
         p_err_flag := 'S';
         p_err_msg := 'Party Site Inactivated';
         COMMIT;
      ELSE
         apps.fnd_file.put_line (
            apps.fnd_file.LOG,
               'Inactivation Failed for Party Site:'
            || p_party_site_number
            || ':'
            || x_msg_data);
         DBMS_OUTPUT.put_line (
               'Inactivation Failed for Party Site:'
            || p_party_site_number
            || ':'
            || x_msg_data);
         ROLLBACK;
         p_err_flag := 'E';

         IF x_msg_count > 1
         THEN
            FOR i IN 1 .. x_msg_count
            LOOP
               x_msg_data :=
                     apps.fnd_msg_pub.get (p_msg_index => i, p_encoded => 'F')
                  || ','
                  || x_msg_data;
               apps.fnd_file.put_line (apps.fnd_file.LOG,
                                       (i || ') ' || x_msg_data));
            END LOOP;
         END IF;

         p_err_msg := x_msg_data;
      END IF;
   END IF;
EXCEPTION
   WHEN OTHERS
   THEN
      p_err_flag := 'E';
      p_err_msg :=
            'Error in Procedure xxpq_inactivate_party_site:'
         || p_party_site_number
         || ':'
         || SQLERRM;
      apps.fnd_file.put_line (
         apps.fnd_file.LOG,
            'Inactivation Failed for Party Site:'
         || p_party_site_number
         || '-'
         || SQLERRM
         || '-'
         || DBMS_UTILITY.format_error_backtrace ());
      DBMS_OUTPUT.put_line (
            'Inactivation Failed for Party Site:'
         || p_party_site_number
         || '-'
         || SQLERRM
         || '-'
         || DBMS_UTILITY.format_error_backtrace ());
END xxpq_inactivate_party_site;

         x_msg_count               => x_msg_count,
         x_msg_count               => x_msg_data);