B2022-121: RO values containing curly braces around values that are NOT multi return values do not resolved in Word Sections.

PROMS/DataLoader/PROMSFixes.Sql

@@ -1,5 +1,7 @@
 
 
+Set NoCount On;
+
 If (db_name() in('master','model','msdn','tempdb'))
 begin
 	DECLARE @ErrorMsg varchar(255)
@@ -21405,21 +21407,242 @@ Begin
 End
 Go
 
-
-
 IF (@@Error = 0) PRINT 'Function Creation: [FindRoUsages] Succeeded'
 ELSE PRINT 'Function Creation: [FindRoUsages] Error on Creation'
 GO
 
 
-
-
 /*
 ==========================================================================================================
  End: B2022-104: SearchReferenced Objects in PROMS is not finding any results
 ==========================================================================================================
 */
 
+/*
+==========================================================================================================
+ Begin: B2022-121: RO values containing curly braces around values that are NOT multi return values do not resolved in Word Sections.
+==========================================================================================================
+*/
+
+
+IF EXISTS (Select * From dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[vesp_RofstChildInsert]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)
+    DROP Procedure [dbo].[vesp_RofstChildInsert];
+GO
+
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+/*****************************************************************************
+   Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE
+       Copyright 2020 - Volian Enterprises, Inc. All rights reserved.
+*****************************************************************************/
+/*
+==========================================================================================================
+ Author:		Jake Ropar
+ Create Date:	03/24/2022
+ Description:	Inserts the RO Child object and associated return values
+==========================================================================================================
+ */
+Create Procedure [dbo].[vesp_RofstChildInsert]
+(
+	@RofstID Int,
+	@ID Int,
+	@ParentID Int,
+	@dbiID Int,
+	@type Int,
+	@title VarChar(Max),
+	@roid VarChar(50),
+	@appid VarChar(Max) = null,
+	@value VarChar(Max) = null
+)
+With Execute as Owner
+As
+Begin
+
+	Declare @BaseAccPageID VarChar(Max) = null;
+	Declare @DefaultValues VarChar(Max);
+
+	Declare @RoidExt VarChar(Max);
+	Declare @AccPageExt VarChar(Max);
+
+
+	-- Create Rofst Child/Group Record --> [Roid = (12) Digits]
+	Insert Into RofstChild (RofstID, ID, ParentID, dbiID, [type], title, roid, appid, [value])
+	Values (@RofstID, @ID, @ParentID, @dbiID, @type, @title, @roid, @appid, @value);
+
+
+	-- Check for appid, if exists, then insert the default value for each return type if multi-value
+	If (Len(@appid) > 0)
+	Begin
+
+		-- Get Accessory Page ID
+		Select @BaseAccPageID = dbo.vefn_RofstDataCleanUnitInfoTags(Concat(d.dbiAP, '-', @appid), 1)
+		From RofstDatabase d with (NoLock) 
+		Where d.RofstID = @RofstID And d.dbiID = @dbiID;
+	
+		Select @DefaultValues = dbo.vefn_RofstDataReplaceVars(@value);
+	
+		If (PatIndex('%=%', @DefaultValues) > 0)
+			Begin
+				
+				-- Insert Rofst Default Values (Multi-Values) --> [Roid = (16) Digits]
+				Select @DefaultValues = Replace(@DefaultValues, '{', ''); 
+
+				With ChildrenValues as 
+				(
+					Select x.ListPosition as 'OffsetIndex', 
+						Case When (PatIndex('%=%', x.ListValue) > 0) Then Right(x.ListValue, Len(x.ListValue)-PatIndex('%=%', x.ListValue)) Else x.ListValue End as 'DefaultValue'
+					From [dbo].[vefn_ParseStringListToTable](@DefaultValues, '}') x
+					Where Len(x.ListValue) > 0
+				)
+				Insert Into RofstDefaultValue (RofstID, roid, [value], AccPageID) 
+				Select @RofstID as 'RofstID',
+					Concat(@roid, re.RoidExt) as 'roid',
+					Case When (Len(RTrim(LTrim(cv.DefaultValue))) > 0 ) Then dbo.vefn_RofstDataCleanUnitInfoTags(cv.DefaultValue, 0) Else '[TBD]' End as 'value',
+					Concat(@BaseAccPageID, '.', re.AccPageExt) as 'AccPageID'
+				From ChildrenValues cv
+					inner join vwRofstData_RofstExtensions re on re.Offset = cv.OffsetIndex
+				Order By cv.OffsetIndex Asc
+
+			End
+		Else
+			Begin
+
+				-- Insert Rofst Default Value (Single Value) --> [Roid = (16) Digits]
+				Insert Into RofstDefaultValue (RofstID, roid, [value], AccPageID) 
+				Select @RofstID as 'RofstID',
+					Concat(@roid, re.RoidExt) as 'roid',
+					Case When (Len(RTrim(LTrim(@DefaultValues))) > 0 ) Then dbo.vefn_RofstDataCleanUnitInfoTags(@DefaultValues, 0) Else '[TBD]' End as 'value',
+					Concat(@BaseAccPageID, '.', re.AccPageExt) as 'AccPageID'
+				From vwRofstData_RofstExtensions re 
+				Where re.Offset = 1;
+
+			End
+
+	End -- (Len(@appid) > 0)
+
+
+	Return;
+
+End
+Go
+
+IF (@@Error = 0) PRINT 'Procedure Creation: [vesp_RofstChildInsert] Succeeded'
+ELSE PRINT 'Procedure Creation: [vesp_RofstChildInsert] Error on Creation'
+GO
+	
+
+
+
+
+If Exists(SELECT * FROM sys.objects Where name = 'vefn_RofstDataReplaceVars' AND type in (N'FN'))
+DROP FUNCTION [dbo].[vefn_RofstDataReplaceVars]
+GO
+
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+/*****************************************************************************
+   Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE
+       Copyright 2020 - Volian Enterprises, Inc. All rights reserved.
+*****************************************************************************/
+-- ==========================================================================================
+-- Author:		Jake Ropar
+-- Create Date: 3/25/2022
+-- Description:	Replaces Any Variables and returns the rest of the value string
+-- ==========================================================================================
+
+CREATE FUNCTION [dbo].[vefn_RofstDataReplaceVars](@Values VarChar(Max)) Returns VarChar(Max)
+WITH EXECUTE AS OWNER
+AS
+BEGIN
+	
+	Declare @RetVal VarChar(Max) = '';
+	Declare @EqualsIndex Int;
+	Declare @EndIndex Int;
+	Declare @NameValPairStartIndex Int;
+	Declare @NameValPairEndIndex Int;
+	
+	Declare @VarPair VarChar(Max);
+	Declare @VarName VarChar(Max);
+	Declare @VarValue VarChar(Max);
+
+	-- Replace Any "<APL  /APL>" Tags with the Default Value first
+	Select @RetVal = dbo.vefn_RofstDataReplaceApplTagsWithDefaults(@Values);
+
+	-- Replace Any Legacy Applicability Tags with the Default Value second
+	Select @RetVal = dbo.vefn_RofstDataReplaceLegacyTagsWithDefaults(@RetVal);
+	
+	If (PatIndex('%=%', @RetVal) > 0)
+	Begin
+
+		If (PatIndex('%{{A%', @RetVal) > 0)
+			Set @EndIndex = PatIndex('%{{A%', @RetVal);
+		Else
+			Set @EndIndex = Len(@RetVal) -1;
+		
+		Set @NameValPairStartIndex = PatIndex('%{%', @RetVal);
+		Set @NameValPairEndIndex = PatIndex('%}%', @RetVal);
+	
+		While(@NameValPairStartIndex > 0 And @NameValPairStartIndex < @EndIndex)
+			Begin
+			
+				-- Get Name Value Pair [ex. {EGS=1214}]
+				Set @VarPair = SubString(@RetVal, @NameValPairStartIndex, (@NameValPairEndIndex - @NameValPairStartIndex) + 1);
+
+				-- Remove Name Value Pair From Return Val
+				Set @RetVal = Replace(@RetVal, @VarPair, '');
+
+				-- Get Variable Name and Value
+				Set @EqualsIndex = PatIndex('%=%', @VarPair);
+
+				If (@EqualsIndex > 0)
+				Begin
+					Set @VarName = SubString(@VarPair, 2, @EqualsIndex - 2);
+					Set @VarValue = SubString(@VarPair, @EqualsIndex + 1, Len(@VarPair) - @EqualsIndex - 1);
+					Set @VarName = Concat('{', @VarName, '}');
+
+					-- Replace All Occurences 
+					Set @RetVal = Replace(@RetVal, @VarName, @VarValue);
+				End
+
+				-- Get Updated Index Values
+				If (PatIndex('%{{A%', @RetVal) > 0)
+					Set @EndIndex = PatIndex('%{{A%', @RetVal);
+				Else
+					Set @EndIndex = Len(@RetVal) -1;
+		
+				Set @NameValPairStartIndex = PatIndex('%{%', @RetVal);
+				Set @NameValPairEndIndex = PatIndex('%}%', @RetVal);
+					
+			End -- End While(@ReplaceVarEndTagIndex > 0)
+
+		End
+
+	Return @RetVal;
+
+END
+GO
+
+IF (@@Error = 0) PRINT 'Function Creation: [vefn_RofstDataReplaceVars] Succeeded'
+ELSE PRINT 'Function Creation: [vefn_RofstDataReplaceVars] Error on Creation'
+GO
+
+
+/*
+==========================================================================================================
+ End: B2022-121: RO values containing curly braces around values that are NOT multi return values do not resolved in Word Sections.
+==========================================================================================================
+*/
+
+
 
 -----------------------------------------------------------------------------
 /*
@@ -21455,8 +21678,8 @@ BEGIN TRY -- Try Block
 	DECLARE @RevDate varchar(255)
 	DECLARE @RevDescription varchar(255)
 
-	set @RevDate = '08/23/2022 7:00 AM'
+	set @RevDate = '09/21/2022 4:00 PM'
-	set @RevDescription = 'B2022-104: [JPR] SearchReferenced Objects in PROMS is not finding any results'
+	set @RevDescription = 'B2022-121: [JPR] RO values containing curly braces around values that are NOT multi return values do not resolved in Word Sections.'
 
 	Select  cast(@RevDate as datetime) RevDate, @RevDescription  RevDescription
 	PRINT 'SQL Code Revision ' + @RevDate + ' - ' + @RevDescription

PROMS/VEPROMS User Interface/PROMSFixes.Sql

@@ -1,5 +1,7 @@
 
 
+Set NoCount On;
+
 If (db_name() in('master','model','msdn','tempdb'))
 begin
 	DECLARE @ErrorMsg varchar(255)
@@ -21405,21 +21407,242 @@ Begin
 End
 Go
 
-
-
 IF (@@Error = 0) PRINT 'Function Creation: [FindRoUsages] Succeeded'
 ELSE PRINT 'Function Creation: [FindRoUsages] Error on Creation'
 GO
 
 
-
-
 /*
 ==========================================================================================================
  End: B2022-104: SearchReferenced Objects in PROMS is not finding any results
 ==========================================================================================================
 */
 
+/*
+==========================================================================================================
+ Begin: B2022-121: RO values containing curly braces around values that are NOT multi return values do not resolved in Word Sections.
+==========================================================================================================
+*/
+
+
+IF EXISTS (Select * From dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[vesp_RofstChildInsert]') AND OBJECTPROPERTY(id,N'IsProcedure') = 1)
+    DROP Procedure [dbo].[vesp_RofstChildInsert];
+GO
+
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+/*****************************************************************************
+   Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE
+       Copyright 2020 - Volian Enterprises, Inc. All rights reserved.
+*****************************************************************************/
+/*
+==========================================================================================================
+ Author:		Jake Ropar
+ Create Date:	03/24/2022
+ Description:	Inserts the RO Child object and associated return values
+==========================================================================================================
+ */
+Create Procedure [dbo].[vesp_RofstChildInsert]
+(
+	@RofstID Int,
+	@ID Int,
+	@ParentID Int,
+	@dbiID Int,
+	@type Int,
+	@title VarChar(Max),
+	@roid VarChar(50),
+	@appid VarChar(Max) = null,
+	@value VarChar(Max) = null
+)
+With Execute as Owner
+As
+Begin
+
+	Declare @BaseAccPageID VarChar(Max) = null;
+	Declare @DefaultValues VarChar(Max);
+
+	Declare @RoidExt VarChar(Max);
+	Declare @AccPageExt VarChar(Max);
+
+
+	-- Create Rofst Child/Group Record --> [Roid = (12) Digits]
+	Insert Into RofstChild (RofstID, ID, ParentID, dbiID, [type], title, roid, appid, [value])
+	Values (@RofstID, @ID, @ParentID, @dbiID, @type, @title, @roid, @appid, @value);
+
+
+	-- Check for appid, if exists, then insert the default value for each return type if multi-value
+	If (Len(@appid) > 0)
+	Begin
+
+		-- Get Accessory Page ID
+		Select @BaseAccPageID = dbo.vefn_RofstDataCleanUnitInfoTags(Concat(d.dbiAP, '-', @appid), 1)
+		From RofstDatabase d with (NoLock) 
+		Where d.RofstID = @RofstID And d.dbiID = @dbiID;
+	
+		Select @DefaultValues = dbo.vefn_RofstDataReplaceVars(@value);
+	
+		If (PatIndex('%=%', @DefaultValues) > 0)
+			Begin
+				
+				-- Insert Rofst Default Values (Multi-Values) --> [Roid = (16) Digits]
+				Select @DefaultValues = Replace(@DefaultValues, '{', ''); 
+
+				With ChildrenValues as 
+				(
+					Select x.ListPosition as 'OffsetIndex', 
+						Case When (PatIndex('%=%', x.ListValue) > 0) Then Right(x.ListValue, Len(x.ListValue)-PatIndex('%=%', x.ListValue)) Else x.ListValue End as 'DefaultValue'
+					From [dbo].[vefn_ParseStringListToTable](@DefaultValues, '}') x
+					Where Len(x.ListValue) > 0
+				)
+				Insert Into RofstDefaultValue (RofstID, roid, [value], AccPageID) 
+				Select @RofstID as 'RofstID',
+					Concat(@roid, re.RoidExt) as 'roid',
+					Case When (Len(RTrim(LTrim(cv.DefaultValue))) > 0 ) Then dbo.vefn_RofstDataCleanUnitInfoTags(cv.DefaultValue, 0) Else '[TBD]' End as 'value',
+					Concat(@BaseAccPageID, '.', re.AccPageExt) as 'AccPageID'
+				From ChildrenValues cv
+					inner join vwRofstData_RofstExtensions re on re.Offset = cv.OffsetIndex
+				Order By cv.OffsetIndex Asc
+
+			End
+		Else
+			Begin
+
+				-- Insert Rofst Default Value (Single Value) --> [Roid = (16) Digits]
+				Insert Into RofstDefaultValue (RofstID, roid, [value], AccPageID) 
+				Select @RofstID as 'RofstID',
+					Concat(@roid, re.RoidExt) as 'roid',
+					Case When (Len(RTrim(LTrim(@DefaultValues))) > 0 ) Then dbo.vefn_RofstDataCleanUnitInfoTags(@DefaultValues, 0) Else '[TBD]' End as 'value',
+					Concat(@BaseAccPageID, '.', re.AccPageExt) as 'AccPageID'
+				From vwRofstData_RofstExtensions re 
+				Where re.Offset = 1;
+
+			End
+
+	End -- (Len(@appid) > 0)
+
+
+	Return;
+
+End
+Go
+
+IF (@@Error = 0) PRINT 'Procedure Creation: [vesp_RofstChildInsert] Succeeded'
+ELSE PRINT 'Procedure Creation: [vesp_RofstChildInsert] Error on Creation'
+GO
+	
+
+
+
+
+If Exists(SELECT * FROM sys.objects Where name = 'vefn_RofstDataReplaceVars' AND type in (N'FN'))
+DROP FUNCTION [dbo].[vefn_RofstDataReplaceVars]
+GO
+
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+/*****************************************************************************
+   Volian Enterprises - Proprietary Information - DO NOT COPY OR DISTRIBUTE
+       Copyright 2020 - Volian Enterprises, Inc. All rights reserved.
+*****************************************************************************/
+-- ==========================================================================================
+-- Author:		Jake Ropar
+-- Create Date: 3/25/2022
+-- Description:	Replaces Any Variables and returns the rest of the value string
+-- ==========================================================================================
+
+CREATE FUNCTION [dbo].[vefn_RofstDataReplaceVars](@Values VarChar(Max)) Returns VarChar(Max)
+WITH EXECUTE AS OWNER
+AS
+BEGIN
+	
+	Declare @RetVal VarChar(Max) = '';
+	Declare @EqualsIndex Int;
+	Declare @EndIndex Int;
+	Declare @NameValPairStartIndex Int;
+	Declare @NameValPairEndIndex Int;
+	
+	Declare @VarPair VarChar(Max);
+	Declare @VarName VarChar(Max);
+	Declare @VarValue VarChar(Max);
+
+	-- Replace Any "<APL  /APL>" Tags with the Default Value first
+	Select @RetVal = dbo.vefn_RofstDataReplaceApplTagsWithDefaults(@Values);
+
+	-- Replace Any Legacy Applicability Tags with the Default Value second
+	Select @RetVal = dbo.vefn_RofstDataReplaceLegacyTagsWithDefaults(@RetVal);
+	
+	If (PatIndex('%=%', @RetVal) > 0)
+	Begin
+
+		If (PatIndex('%{{A%', @RetVal) > 0)
+			Set @EndIndex = PatIndex('%{{A%', @RetVal);
+		Else
+			Set @EndIndex = Len(@RetVal) -1;
+		
+		Set @NameValPairStartIndex = PatIndex('%{%', @RetVal);
+		Set @NameValPairEndIndex = PatIndex('%}%', @RetVal);
+	
+		While(@NameValPairStartIndex > 0 And @NameValPairStartIndex < @EndIndex)
+			Begin
+			
+				-- Get Name Value Pair [ex. {EGS=1214}]
+				Set @VarPair = SubString(@RetVal, @NameValPairStartIndex, (@NameValPairEndIndex - @NameValPairStartIndex) + 1);
+
+				-- Remove Name Value Pair From Return Val
+				Set @RetVal = Replace(@RetVal, @VarPair, '');
+
+				-- Get Variable Name and Value
+				Set @EqualsIndex = PatIndex('%=%', @VarPair);
+
+				If (@EqualsIndex > 0)
+				Begin
+					Set @VarName = SubString(@VarPair, 2, @EqualsIndex - 2);
+					Set @VarValue = SubString(@VarPair, @EqualsIndex + 1, Len(@VarPair) - @EqualsIndex - 1);
+					Set @VarName = Concat('{', @VarName, '}');
+
+					-- Replace All Occurences 
+					Set @RetVal = Replace(@RetVal, @VarName, @VarValue);
+				End
+
+				-- Get Updated Index Values
+				If (PatIndex('%{{A%', @RetVal) > 0)
+					Set @EndIndex = PatIndex('%{{A%', @RetVal);
+				Else
+					Set @EndIndex = Len(@RetVal) -1;
+		
+				Set @NameValPairStartIndex = PatIndex('%{%', @RetVal);
+				Set @NameValPairEndIndex = PatIndex('%}%', @RetVal);
+					
+			End -- End While(@ReplaceVarEndTagIndex > 0)
+
+		End
+
+	Return @RetVal;
+
+END
+GO
+
+IF (@@Error = 0) PRINT 'Function Creation: [vefn_RofstDataReplaceVars] Succeeded'
+ELSE PRINT 'Function Creation: [vefn_RofstDataReplaceVars] Error on Creation'
+GO
+
+
+/*
+==========================================================================================================
+ End: B2022-121: RO values containing curly braces around values that are NOT multi return values do not resolved in Word Sections.
+==========================================================================================================
+*/
+
+
 
 -----------------------------------------------------------------------------
 /*
@@ -21455,8 +21678,8 @@ BEGIN TRY -- Try Block
 	DECLARE @RevDate varchar(255)
 	DECLARE @RevDescription varchar(255)
 
-	set @RevDate = '08/23/2022 7:00 AM'
+	set @RevDate = '09/21/2022 4:00 PM'
-	set @RevDescription = 'B2022-104: [JPR] SearchReferenced Objects in PROMS is not finding any results'
+	set @RevDescription = 'B2022-121: [JPR] RO values containing curly braces around values that are NOT multi return values do not resolved in Word Sections.'
 
 	Select  cast(@RevDate as datetime) RevDate, @RevDescription  RevDescription
 	PRINT 'SQL Code Revision ' + @RevDate + ' - ' + @RevDescription

PROMS/VEPROMS.CSLA.Library/Config/ROFSTLookup.cs

@@ -1373,7 +1373,8 @@ namespace VEPROMS.CSLA.Library
 
 					// Check the end of the AccPageID to determine if its an extension or part of the base key
 					// If the AccPageID doesn't have an extension then set to default
-					if (!Regex.IsMatch(accPageID, @".*\.[A-Z]") || BaseAccPageKeys.Contains(accPageID))
+					// B2022-121: RO values containing curly braces around values that are NOT multi return values do not resolved in Word Sections.
+					if (!Regex.IsMatch(accPageID.Substring(accPageID.Length - 2, 2), @".*\.[A-Z]") || BaseAccPageKeys.Contains(accPageID))
 					{
 						// No Extension, set to default
 						accPageID = string.Format("{0}.A", accPageID);