[lmi-commits] [5364] Do not increment cumulative GLP in an incomplete initial inforce year

[Greg Chicares]

Revision: 5364
          http://svn.sv.gnu.org/viewvc/?view=rev&root=lmi&revision=5364
Author:   chicares
Date:     2012-01-15 14:29:32 +0000 (Sun, 15 Jan 2012)
Log Message:
-----------
Do not increment cumulative GLP in an incomplete initial inforce year

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

Modified: lmi/trunk/ChangeLog
===================================================================
--- lmi/trunk/ChangeLog 2012-01-15 13:58:52 UTC (rev 5363)
+++ lmi/trunk/ChangeLog 2012-01-15 14:29:32 UTC (rev 5364)
@@ -29457,3 +29457,13 @@
   skin.xrc
 No longer label GPT inforce fields as unimplemented.
 
+20120115T1358Z <address@hidden> [586]
+
+  ihs_acctval.cpp
+Refactor for clarity.
+
+20120115T1429Z <address@hidden> [586]
+
+  ihs_acctval.cpp
+Do not increment cumulative GLP in an incomplete initial inforce year.
+

Modified: lmi/trunk/ihs_acctval.cpp
===================================================================
--- lmi/trunk/ihs_acctval.cpp   2012-01-15 13:58:52 UTC (rev 5363)
+++ lmi/trunk/ihs_acctval.cpp   2012-01-15 14:29:32 UTC (rev 5364)
@@ -453,11 +453,13 @@
             }
         }
 
+    // INPUT !! Need inforce tgtprem.
     double annual_target_premium = GetModalTgtPrem
         (0
         ,mce_annual
         ,InvariantValues().SpecAmt[0]
         );
+    // It is at best superfluous to do this for every basis.
     Irc7702_->Initialize7702
         (InvariantValues().SpecAmt[0] + InvariantValues().TermSpecAmt[0]
         ,InvariantValues().SpecAmt[0] + InvariantValues().TermSpecAmt[0]
@@ -892,8 +894,13 @@
     SetAnnualInvariants();
 
     PremiumTax_->start_new_year();
-    Irc7702_->UpdateBOY7702();
-    Irc7702A_->UpdateBOY7702A(Year);
+    // Skip this in an incomplete initial inforce year.
+    // Premium tax should perhaps be handled similarly.
+    if(Year != InforceYear || 0 == InforceMonth)
+        {
+        Irc7702_ ->UpdateBOY7702();
+        Irc7702A_->UpdateBOY7702A(Year);
+        }
 
     MonthsPolicyFees            = 0.0;
     SpecAmtLoad                 = 0.0;