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

Post a Comment

Popular posts from this blog

Oracle Shipping Network SQL Query

-
Useful Script for Oracle Shipping Network , I wrote custom function for GL Code , you may find below SELECT a.from_organization_code, a.from_organization_name,        a.to_organization_code, a.to_organization_name,  DECODE (a.intransit_type,                  2, 'Intransit',                  1, 'Direct'                 ) "Transfer Type",        (SELECT meaning           FROM apps.mfg_lookups          WHERE lookup_type = 'MTL_FOB_POINT'            AND lookup_code = a.fob_point) fob_point,        a.elemental_visibility_enabled, DECODE (a.routing_header_id,                  1, 'Standard',                  2, 'Insp...
Click for more

Advance Supply Chaining Scripts - ASCP Full Pegging Concept Script

-
ASCP Pegging Script SELECT DISTINCT msc.organization_code m_organization_code,                       msc.category_name m_category_name,                       item_segments m_item_segments,                       msc.description m_description,                       order_type_text m_order_type_text,                       TO_CHAR (new_due_date) m_new_due_date,                       TO_CHAR (quantity_rate) m_quantity_rate,                                             --                TO_CHAR (msc.disposition_...
Click for more

How to call Auto invoice Import Program from Back end

-
Autoinvoice Import Program takes following parameters : argv[0]  program name argv[1]  parallel module name  [MAIN|PU?] argv[2]  running mode  [V|T|P] argv[3]  batch source id argv[4]  batch source name argv[5]  default date argv[6]  concatenated transaction flexfield attribute value argv[7]  transaction type id argv[8]  low bill to customer number argv[9]  high bill to customer number argv[10]  low bill to customer name argv[11] high bill to customer name argv[12] low gl date argv[13] high gl date argv[14] low ship date argv[15] high ship date argv[16] low transaction number argv[17] high transaction number argv[18] low sales order argv[19] high sales order argv[20] low invoice date argv[21] high invoice date argv[22] low ship to customer number argv[23] high ship to customer number argv[24] low ship to customer name argv[25] high ship to customer name argv[26] Call RAXTRX from RAXMTR flag ar...
Click for more