Steps to load Assets Activities in R 12


/* Formatted on 12/24/2011 4:13:07 PM (QP5 v5.115.810.9015) */
CREATE OR REPLACE PROCEDURE APPS.lmw_asset_activity_insert
IS
   CURSOR c1
   IS
      SELECT   *
        FROM   lmw_asset_activity_data
       WHERE   activity = '1A00501';

   l_asset_activity_id          NUMBER;
   l_inventory_item_id          NUMBER;
   l_organization_id            NUMBER;
   l_owningdepartment_id        NUMBER;
   l_creation_organization_id   NUMBER;

   p_return_status              VARCHAR2 (100);
   p_msg_count                  NUMBER;
   p_msg_data                   VARCHAR2 (2000);

   l_pm_last_service            EAM_PM_LAST_SERVICE_PUB.pm_last_service_tbl;

   l_return_status              VARCHAR2 (1);
   l_msg_count                  NUMBER;
   l_msg_data                   VARCHAR2 (20000);
   l_msg_data1                  VARCHAR2 (20000);
   l_msg_index_out              NUMBER;
BEGIN
   FOR i IN c1
   LOOP
      BEGIN
         l_asset_activity_id := custom.lmw_look_fnid ('INV', i.activity);
         l_inventory_item_id := custom.lmw_look_fnid ('INV', i.segment1);
         l_organization_id := custom.lmw_look_fnid ('ORGCD', i.org_cd);
         l_creation_organization_id :=
            custom.lmw_look_fnid ('ORGCD', i.cre_org);
         l_owningdepartment_id :=
            custom.lmw_look_fnid ('DEPT', i.owning_department);

         DBMS_OUTPUT.put_line(   l_asset_activity_id
                              || ','
                              || l_inventory_item_id
                              || ','
                              || l_organization_id
                              || ','
                              || l_creation_organization_id
                              || ','
                              || l_owningdepartment_id);

         l_pm_last_service (0).meter_id := NULL;
         l_pm_last_service (0).last_service_reading := NULL;
         l_pm_last_service (0).prev_service_reading := NULL;
         l_pm_last_service (0).wip_entity_id := NULL;


         EAM_ITEM_ACTIVITIES_PUB.insert_item_activities (
            p_api_version                => 1.0,
            p_init_msg_list              => FND_API.G_FALSE,
            p_commit                     => FND_API.G_FALSE,
            p_validation_level           => FND_API.G_VALID_LEVEL_FULL,
            x_return_status              => l_return_status,
            x_msg_count                  => l_msg_count,
            x_msg_data                   => l_msg_data,
            p_asset_activity_id          => l_asset_activity_id,
            p_inventory_item_id          => l_inventory_item_id,
            p_organization_id            => l_organization_id,
            p_owningdepartment_id        => l_owningdepartment_id,
            p_maintenance_object_id      => i.maintenance_object_id,
            p_creation_organization_id   => l_creation_organization_id,
            p_start_date_active          => i.start_date_active,
            p_end_date_active            => i.end_date_active,
            p_priority_code              => i.priority_code,
            p_activity_cause_code        => i.activity_cause_code,
            p_activity_type_code         => i.activity_type_code,
            p_shutdown_type_code         => i.shutdown_type_code,
            p_maintenance_object_type    => i.maintenance_object_type,
            p_tmpl_flag                  => i.tmpl_flag,
            p_class_code                 => i.class_code,
            p_activity_source_code       => i.activity_source_code,
            p_serial_number              => i.serial_number,
            p_attribute_category         => i.attribute_category,
            p_attribute1                 => i.attribute1,
            p_attribute2                 => i.attribute2,
            p_attribute3                 => i.attribute3,
            p_attribute4                 => i.attribute4,
            p_attribute5                 => i.attribute5,
            p_attribute6                 => i.attribute6,
            p_attribute7                 => i.attribute7,
            p_attribute8                 => i.attribute8,
            p_attribute9                 => i.attribute9,
            p_attribute10                => i.attribute10,
            p_attribute11                => i.attribute11,
            p_attribute12                => i.attribute12,
            p_attribute13                => i.attribute13,
            p_attribute14                => i.attribute14,
            p_attribute15                => i.attribute15,
            p_tagging_required_flag      => i.tagging_required_flag,
            p_last_service_start_date    => i.last_service_start_date,
            p_last_service_end_date      => i.last_service_end_date,
            p_prev_service_start_date    => i.prev_service_start_date,
            p_prev_service_end_date      => i.prev_service_end_date,
            --        p_last_scheduled_start_date     => null ,
            --        p_last_scheduled_end_date    => null    ,
            --        p_prev_scheduled_start_date    => null,
            --        p_prev_scheduled_end_date    => null    ,
            --        p_wip_entity_id    =>  null   ,
            p_source_tmpl_id             => i.source_tmpl_id,
            p_pm_last_service_tbl        => l_pm_last_service
         );

         DBMS_OUTPUT.put_line ('Return Status - ' || l_return_status);

         IF (l_return_status <> 'S')
         THEN
            IF (fnd_msg_pub.count_msg > 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);
                  DBMS_OUTPUT.put_line (i || ' - ' || l_msg_data);
               --               l_msg_data1 := l_msg_data1 ||' '|| l_msg_data;

               END LOOP;
            --fnd_message.set_encoded(l_msg_data1);
            --          dbms_output.put_line(l_msg_data1);
            END IF;
         ELSE
            DBMS_OUTPUT.put_line ('Return Status - ' || l_return_status);
         END IF;
      END;
   END LOOP;
    DBMS_OUTPUT.put_line(  'I');
END;
/

Comments

Popular posts from this blog

Oracle Shipping Network SQL Query

Oracle Ar Invoice Numbering Sequence alter to avoid missing in between by cache

How to call Auto invoice Import Program from Back end