diff --git a/PROMS/DataLoader/PROMSFixes.Sql b/PROMS/DataLoader/PROMSFixes.Sql
index 5406eea1..cd8fcc0c 100644
--- a/PROMS/DataLoader/PROMSFixes.Sql
+++ b/PROMS/DataLoader/PROMSFixes.Sql
@@ -5813,3 +5813,135 @@ GO
 IF (@@Error = 0) PRINT 'Procedure Creation: vesp_WillTransitionsBeValid Succeeded'
 ELSE PRINT 'Procedure Creation: vesp_WillTransitionsBeValid Error on Creation'
 GO
+
+/****** Object:  StoredProcedure [dbo].[vefn_NextCount]    Script Date: 02/05/2013 11:58:00 ******/
+IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[vefn_NextCount]') AND OBJECTPROPERTY(id,N'IsScalarFunction') = 1)
+	DROP Function [vefn_NextCount];
+GO
+
+/*****************************************************************************
+   Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE
+       Copyright 2012 - Volian Enterprises, Inc. All rights reserved.
+*****************************************************************************/
+Create  FUNCTION [dbo].[vefn_NextCount](@ItemID int)
+RETURNS Int
+WITH EXECUTE AS OWNER
+AS
+BEGIN
+declare @Count int;
+with Itemz([NextCnt], [ItemID], [PreviousID]) as (
+  Select 0 [NextCnt], [ItemID], [PreviousID] 
+	FROM [Items]
+    where [ItemID]=@ItemID
+-- Siblings
+Union All
+  select Z.[NextCnt] +1, I.[ItemID], I.[PreviousID]
+	from Itemz Z
+	join Items I on I.PreviousID = Z.ItemID
+)
+Select @Count = Count(*) from Itemz
+OPTION (MAXRECURSION 10000)
+RETURN @Count
+END
+GO
+IF (@@Error = 0) PRINT 'Function Creation: vefn_NextCount Succeeded'
+ELSE PRINT 'Function Creation: vefn_NextCount Error on Creation'
+GO
+/****** Object:  StoredProcedure [vesp_ListItems] ******/
+IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[vesp_ListItems]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)
+    DROP PROCEDURE [vesp_ListItems];
+GO
+	
+--vesp_ListItems 1
+
+/*****************************************************************************
+   Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE
+       Copyright 2012 - Volian Enterprises, Inc. All rights reserved.
+*****************************************************************************/
+CREATE PROCEDURE [dbo].[vesp_ListItems]
+(
+@ItemID int = 0
+)
+WITH EXECUTE AS OWNER
+AS
+BEGIN
+with Itemz(knt, ItemID,PreviousID,ContentID,[DTS],[UserID],[LastChanged]) as (
+  Select 0 knt, ItemID,PreviousID,ContentID,[DTS],[UserID],[LastChanged]
+    from Items
+    where ItemID=@ItemID
+  Union All
+--
+  Select Z.knt + 1,C.ItemID,C.PreviousID,C.ContentID,C.[DTS],C.[UserID],C.[LastChanged]
+    from Items C
+    Join Itemz Z on C.PreviousID=Z.ItemID
+)
+Select ItemID,PreviousID,ContentID,[DTS],[UserID],[LastChanged],
+		(SELECT COUNT(*) FROM [Annotations] WHERE [Annotations].[ItemID]=[Itemz].[ItemID]) [AnnotationCount],
+		(SELECT COUNT(*) FROM [DocVersions] WHERE [DocVersions].[ItemID]=[Itemz].[ItemID]) [DocVersionCount],
+		(SELECT COUNT(*) FROM [Items] [Children] WHERE [Children].[PreviousID]=[Itemz].[ItemID]) [NextCount],
+		(SELECT COUNT(*) FROM [Parts] WHERE [Parts].[ItemID]=[Itemz].[ItemID]) [PartCount],
+		(SELECT COUNT(*) FROM [Transitions] WHERE [Transitions].[RangeID]=[Itemz].[ItemID]) [Transition_RangeIDCount],
+		(SELECT COUNT(*) FROM [Transitions] WHERE [Transitions].[ToID]=[Itemz].[ItemID]) [Transition_ToIDCount]
+from Itemz order by knt
+OPTION (MAXRECURSION 1000)
+END
+GO
+-- Display the status of Proc creation
+IF (@@Error = 0) PRINT 'Procedure Creation: vesp_ListItems Succeeded'
+ELSE PRINT 'Procedure Creation: vesp_ListItems Error on Creation'
+GO
+
+/****** Object:  StoredProcedure [vesp_ListItemsAndContent] ******/
+IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[vesp_ListItemsAndContent]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)
+    DROP PROCEDURE [vesp_ListItemsAndContent];
+GO
+	
+--vesp_ListItemsAndContent 1
+
+/*****************************************************************************
+   Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE
+       Copyright 2012 - Volian Enterprises, Inc. All rights reserved.
+*****************************************************************************/
+CREATE PROCEDURE [dbo].[vesp_ListItemsAndContent]
+(
+@ItemID int = 0
+)
+WITH EXECUTE AS OWNER
+AS
+BEGIN
+with Itemz(knt, ItemID,PreviousID,ContentID,[DTS],[UserID],[LastChanged]) as (
+  Select 0 knt, ItemID,PreviousID,ContentID,[DTS],[UserID],[LastChanged]
+    from Items
+    where ItemID=@ItemID
+  Union All
+--
+  Select z.knt + 1, I.ItemID,I.PreviousID,I.ContentID,I.[DTS],I.[UserID],I.[LastChanged]
+    from Items I
+    Join Itemz Z on I.PreviousID=Z.ItemID
+)
+Select I.ItemID,I.PreviousID,I.ContentID,I.[DTS],I.[UserID],I.[LastChanged],
+	C.[Number],C.[Text],C.[Type],C.[FormatID],C.[Config],C.[DTS] [cDTS],C.[UserID] [cUserID],C.[LastChanged] [cLastChanged],
+		(SELECT COUNT(*) FROM [Annotations] WHERE [Annotations].[ItemID]=[I].[ItemID]) [AnnotationCount],
+		(SELECT COUNT(*) FROM [DocVersions] WHERE [DocVersions].[ItemID]=[I].[ItemID]) [DocVersionCount],
+		(SELECT COUNT(*) FROM [Items] [Children] WHERE [Children].[PreviousID]=[I].[ItemID]) [NextCount],
+		(SELECT COUNT(*) FROM [Parts] WHERE [Parts].[ItemID]=[I].[ItemID]) [PartCount],
+		(SELECT COUNT(*) FROM [Transitions] WHERE [Transitions].[RangeID]=[I].[ItemID]) [Transition_RangeIDCount],
+		(SELECT COUNT(*) FROM [Transitions] WHERE [Transitions].[ToID]=[I].[ItemID]) [Transition_ToIDCount],
+		(SELECT COUNT(*) FROM [Details] WHERE [Details].[ContentID]=[C].[ContentID]) [DetailCount],
+		(SELECT COUNT(*) FROM [Entries] WHERE [Entries].[ContentID]=[C].[ContentID]) [EntryCount],
+		(SELECT COUNT(*) FROM [Grids] WHERE [Grids].[ContentID]=[C].[ContentID]) [GridCount],
+		(SELECT COUNT(*) FROM [Images] WHERE [Images].[ContentID]=[C].[ContentID]) [ImageCount],
+		(SELECT COUNT(*) FROM [Items] WHERE [Items].[ContentID]=[C].[ContentID]) [ItemCount],
+		(SELECT COUNT(*) FROM [Parts] WHERE [Parts].[ContentID]=[C].[ContentID]) [cPartCount],
+		(SELECT COUNT(*) FROM [RoUsages] WHERE [RoUsages].[ContentID]=[C].[ContentID]) [RoUsageCount],
+		(SELECT COUNT(*) FROM [Transitions] WHERE [Transitions].[FromID]=[C].[ContentID]) [TransitionCount],
+		(SELECT COUNT(*) FROM [ZContents] WHERE [ZContents].[ContentID]=[C].[ContentID]) [ZContentCount]
+from Itemz I Join Contents C on I.ContentID = C.ContentID Order by knt
+OPTION (MAXRECURSION 1000)
+END
+GO
+-- Display the status of Proc creation
+IF (@@Error = 0) PRINT 'Procedure Creation: vesp_ListItemsAndContent Succeeded'
+ELSE PRINT 'Procedure Creation: vesp_ListItemsAndContent Error on Creation'
+GO
+