[lmi-commits] [lmi] master 92bc792 6/7: Add a 'MinPremType' database entity

[Greg Chicares]

branch: master
commit 92bc79246ae9307c05b7e218c065313bce991968
Author: Gregory W. Chicares <address@hidden>
Commit: Gregory W. Chicares <address@hidden>

    Add a 'MinPremType' database entity
    
    Adding this paves the way for resolving a defect that, according to
    commentary in 'ihs_basicval.cpp', can only be addressed...
    
    // once the comment concerning GetModalPremMinFromTable()
    // in GetModalPremTgtFromTable() is addressed. Meanwhile, this kludge
    // permits table-driven minimum premiums in certain circumstances.
---
 db_sort.sed | 19 ++++++++++---------
 dbdict.cpp  |  1 +
 dbdict.hpp  |  1 +
 dbnames.hpp |  1 +
 dbnames.xpp |  1 +
 5 files changed, 14 insertions(+), 9 deletions(-)

diff --git a/db_sort.sed b/db_sort.sed
index d7866f8..5871528 100644
--- a/db_sort.sed
+++ b/db_sort.sed
@@ -294,15 +294,16 @@
 /DB_FirstLoanMonth\>/      s/^/L16/
 # DB_Topic_Premiums
 /DB_MinPremType\>/         s/^/M01/
-/DB_MinPremIntSpread\>/    s/^/M02/
-/DB_SplitMinPrem\>/        s/^/M03/
-/DB_UnsplitSplitMinPrem\>/ s/^/M04/
-/DB_ErNotionallyPaysTerm\>/s/^/M05/
-/DB_TgtPremType\>/         s/^/M06/
-/DB_TgtPremTable\>/        s/^/M07/
-/DB_TgtPremFixedAtIssue\>/ s/^/M08/
-/DB_TgtPremIgnoreSubstd\>/ s/^/M09/
-/DB_MinPmt\>/              s/^/M10/
+/DB_MinPremTable\>/        s/^/M02/
+/DB_MinPremIntSpread\>/    s/^/M03/
+/DB_SplitMinPrem\>/        s/^/M04/
+/DB_UnsplitSplitMinPrem\>/ s/^/M05/
+/DB_ErNotionallyPaysTerm\>/s/^/M06/
+/DB_TgtPremType\>/         s/^/M07/
+/DB_TgtPremTable\>/        s/^/M08/
+/DB_TgtPremFixedAtIssue\>/ s/^/M09/
+/DB_TgtPremIgnoreSubstd\>/ s/^/M10/
+/DB_MinPmt\>/              s/^/M11/
 # DB_Topic_SecondaryGuarantees
 /DB_NoLapseMinDur\>/       s/^/N01/
 /DB_NoLapseMinAge\>/       s/^/N02/
diff --git a/dbdict.cpp b/dbdict.cpp
index 27c9891..1b0f7fd 100644
--- a/dbdict.cpp
+++ b/dbdict.cpp
@@ -368,6 +368,7 @@ void DBDictionary::ascribe_members()
     ascribe("CurrRegLoanSpread"   , &DBDictionary::CurrRegLoanSpread   );
     ascribe("FirstLoanMonth"      , &DBDictionary::FirstLoanMonth      );
     ascribe("MinPremType"         , &DBDictionary::MinPremType         );
+    ascribe("MinPremTable"        , &DBDictionary::MinPremTable        );
     ascribe("MinPremIntSpread"    , &DBDictionary::MinPremIntSpread    );
     ascribe("SplitMinPrem"        , &DBDictionary::SplitMinPrem        );
     ascribe("UnsplitSplitMinPrem" , &DBDictionary::UnsplitSplitMinPrem );
diff --git a/dbdict.hpp b/dbdict.hpp
index 7b8a94b..0169338 100644
--- a/dbdict.hpp
+++ b/dbdict.hpp
@@ -347,6 +347,7 @@ class LMI_SO DBDictionary
     database_entity CurrRegLoanSpread   ;
     database_entity FirstLoanMonth      ;
     database_entity MinPremType         ;
+    database_entity MinPremTable        ;
     database_entity MinPremIntSpread    ;
     database_entity SplitMinPrem        ;
     database_entity UnsplitSplitMinPrem ;
diff --git a/dbnames.hpp b/dbnames.hpp
index e15015d..46952a8 100644
--- a/dbnames.hpp
+++ b/dbnames.hpp
@@ -455,6 +455,7 @@ enum e_database_key
     ,DB_Topic_Premiums
 
         ,DB_MinPremType
+        ,DB_MinPremTable
         ,DB_MinPremIntSpread
         ,DB_SplitMinPrem
         ,DB_UnsplitSplitMinPrem
diff --git a/dbnames.xpp b/dbnames.xpp
index 50cd56c..0764625 100644
--- a/dbnames.xpp
+++ b/dbnames.xpp
@@ -300,6 +300,7 @@
 {DB_FirstLoanMonth,DB_Topic_Loans,"FirstLoanMonth","Number of months loans not 
allowed [not supported yet]",}, \
 {DB_Topic_Premiums,DB_FIRST,"Premiums","Minimum and target premiums",}, \
 {DB_MinPremType,DB_Topic_Premiums,"MinPremType","Minimum premium: 0=based on 
monthly deductions, 1=7702A seven-pay premium",}, \
+{DB_MinPremTable,DB_Topic_Premiums,"MinPremTable","Annual minimum premium 
rates per $1 (index in mortality table database)",}, \
 {DB_MinPremIntSpread,DB_Topic_Premiums,"MinPremIntSpread","Interest spread 
from general-account rate used to capitalize monthly deductions for minimum 
premium calculation",}, \
 {DB_SplitMinPrem,DB_Topic_Premiums,"SplitMinPrem","Split monthly-deductions 
minimum premium by payor: 0=no, 1=yes",}, \
 {DB_UnsplitSplitMinPrem,DB_Topic_Premiums,"UnsplitSplitMinPrem","Payment 
strategies recombine split minimum premium: 0=no, 1=yes",}, \