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