[lmi-commits] [6244] Add group premium quote data to ledger

[Greg Chicares]

Revision: 6244
          http://svn.sv.gnu.org/viewvc/?view=rev&root=lmi&revision=6244
Author:   chicares
Date:     2015-08-13 00:39:21 +0000 (Thu, 13 Aug 2015)
Log Message:
-----------
Add group premium quote data to ledger

Modified Paths:
--------------
    lmi/trunk/ChangeLog
    lmi/trunk/ihs_acctval.cpp
    lmi/trunk/ledger_invariant.cpp
    lmi/trunk/ledger_invariant.hpp

Modified: lmi/trunk/ChangeLog
===================================================================
--- lmi/trunk/ChangeLog 2015-08-13 00:19:25 UTC (rev 6243)
+++ lmi/trunk/ChangeLog 2015-08-13 00:39:21 UTC (rev 6244)
@@ -36545,3 +36545,27 @@
 Move 'wx_pdfdoc_test' out of $(unit_test_targets). See:
   http://lists.nongnu.org/archive/html/lmi/2015-07/msg00020.html
 
+20150810T1639Z <address@hidden> [508]
+
+  ihs_acctval.cpp
+Improve documentation.
+
+20150812T2320Z <address@hidden> [508]
+
+  basic_values.hpp
+  ihs_basicval.cpp
+Refactor to accommodate group premium quotes.
+
+20150813T0019Z <address@hidden> [508]
+
+  account_value.hpp
+  ihs_acctval.cpp
+Calculate premiums for group premium quotes.
+
+20150813T0039Z <address@hidden> [508]
+
+  ihs_acctval.cpp
+  ledger_invariant.cpp
+  ledger_invariant.hpp
+Add group premium quote data to ledger.
+

Modified: lmi/trunk/ihs_acctval.cpp
===================================================================
--- lmi/trunk/ihs_acctval.cpp   2015-08-13 00:19:25 UTC (rev 6243)
+++ lmi/trunk/ihs_acctval.cpp   2015-08-13 00:39:21 UTC (rev 6244)
@@ -1030,6 +1030,22 @@
         InvariantValues().InitTgtPrem = AnnualTargetPrem;
         }
 
+    // Calculate special initial premiums for premium-quote PDF only.
+    // Four premiums are calculated, for base and "supplemental"
+    // coverage combined:
+    //   without riders; with ADB only; with WP only; with ADB and WP
+    // This is intended for presale use only; for inforce cells, these
+    // premiums retain their default initial values of zero. There
+    // seems to be no compelling argument for further restrictions
+    // such as (DB_MinPremType == oe_monthly_deduction).
+    if(0 == Year)
+        {
+        InvariantValues().InitModalPrem00 = SuppositiveModalPremium(0, 0);
+        InvariantValues().InitModalPrem01 = SuppositiveModalPremium(0, 1);
+        InvariantValues().InitModalPrem10 = SuppositiveModalPremium(1, 0);
+        InvariantValues().InitModalPrem11 = SuppositiveModalPremium(1, 1);
+        }
+
     SurrChgSpecAmt = InvariantValues().SpecAmt[0];
     HOPEFULLY(0.0 <= SurrChgSpecAmt);
     // TODO ?? SurrChgSpecAmt is not used yet.

Modified: lmi/trunk/ledger_invariant.cpp
===================================================================
--- lmi/trunk/ledger_invariant.cpp      2015-08-13 00:19:25 UTC (rev 6243)
+++ lmi/trunk/ledger_invariant.cpp      2015-08-13 00:39:21 UTC (rev 6244)
@@ -142,6 +142,10 @@
     ScalableScalars ["InitGSP"               ] = &InitGSP                ;
     ScalableScalars ["InitGLP"               ] = &InitGLP                ;
     ScalableScalars ["InitTgtPrem"           ] = &InitTgtPrem            ;
+    ScalableScalars ["InitModalPrem00"       ] = &InitModalPrem00        ;
+    ScalableScalars ["InitModalPrem01"       ] = &InitModalPrem01        ;
+    ScalableScalars ["InitModalPrem10"       ] = &InitModalPrem10        ;
+    ScalableScalars ["InitModalPrem11"       ] = &InitModalPrem11        ;
     ScalableScalars ["Dumpin"                ] = &Dumpin                 ;
     ScalableScalars ["External1035Amount"    ] = &External1035Amount     ;
     ScalableScalars ["Internal1035Amount"    ] = &Internal1035Amount     ;
@@ -567,6 +571,10 @@
 //  GuarPrem                = 0;
 //  InitSevenPayPrem        =
 //  InitTgtPrem             =
+    InitModalPrem00         = 0.0;
+    InitModalPrem01         = 0.0;
+    InitModalPrem10         = 0.0;
+    InitModalPrem11         = 0.0;
 
     MaleProportion          = b->yare_input_.MaleProportion;
     NonsmokerProportion     = b->yare_input_.NonsmokerProportion;

Modified: lmi/trunk/ledger_invariant.hpp
===================================================================
--- lmi/trunk/ledger_invariant.hpp      2015-08-13 00:19:25 UTC (rev 6243)
+++ lmi/trunk/ledger_invariant.hpp      2015-08-13 00:39:21 UTC (rev 6244)
@@ -153,6 +153,10 @@
     double          InitGSP;
     double          InitGLP;
     double          InitTgtPrem;
+    double          InitModalPrem00;
+    double          InitModalPrem01;
+    double          InitModalPrem10;
+    double          InitModalPrem11;
     double          Dumpin;
     double          External1035Amount;
     double          Internal1035Amount;