Here is the script that I created based off the script that is included with the module.
ALTER PROCEDURE dbo.EventsAVCalendarImport
@CalendarModuleID int,
@EventModuleID int,
@Version nvarchar(8),
@TimeZone int,
@PortalID int,
@ImportCategory bit,
@ImportLocation bit
AS
IF EXISTS(SELECT * FROM Calendar)
BEGIN
SET IDENTITY_INSERT Events ON
INSERT INTO Events (EventID, ModuleID, EventDateBegin, EventDateEnd, EventTimeBegin, Duration, EventName, EventDesc, Importance, RepeatType, Every, Period, Reminder, Notify, CreatedBy, CreatedDate, Approved, PortalID, Signups, MaxEnrollment, EnrollRoleID, EnrollFee, EnrollType, PayPalAccount, PayPalPassword, Cancelled, ImageURL, ImageType, ImageWidth, ImageHeight, ImageDisplay, Location, Category, TimeZoneOffset)
SELECT EventID, @EventModuleID as ModuleID, EventDateBegin, EventDateEnd, EventTimeBegin, Duration, EventName, EventDesc, Importance, RepeatType, Every, Period, Reminder, Notify, CreatedBy, CreatedDate, Approved, PortalID, Signups, MaxEnrollment, EnrollRoleID, EnrollFee, EnrollType, PayPalAccount, PayPalPassword, Cancelled, ImageURL, ImageType, ImageWidth, ImageHeight, ImageDisplay, Location, Category, @TimeZone FROM Calendar WHERE ModuleID = @CalendarModuleID
SET IDENTITY_INSERT Events OFF
DBCC CHECKIDENT (Events)
END
SET IDENTITY_INSERT EventsCategory ON
if @ImportCategory <> 0
INSERT INTO EventsCategory (PortalID, Category, CategoryName, Color)
SELECT PortalID, Category, CategoryName, Color FROM CalendarCategory WHERE PortalID = @PortalID
DBCC CHECKIDENT (EventsCategory)
SET IDENTITY_INSERT EventsCategory OFF
SET IDENTITY_INSERT EventsLocation ON
if @ImportLocation <> 0
INSERT INTO EventsLocation (PortalID, Location, LocationName, MapURL)
SELECT PortalID, Location, LocationName, MapURL FROM CalendarLocation WHERE PortalID = @PortalID
DBCC CHECKIDENT (EventsLocation)
SET IDENTITY_INSERT EventsLocation OFF