InsuranceBizLogic 0.2.5

data/lib/bizLogic/VPMSHelper.rb

@@ -0,0 +1,187 @@
+# Copyright (c) 2007-2008 Orangery Technology Limited 
+# You can redistribute it and/or modify it under the same terms as Ruby.
+# 
+module VPMSHelper
+  include REXML
+
+  def mergeIntoXMLDoc(xml,premiums)
+    doc = Document.new(xml)
+    #premiums is a named value pair array
+    premiums.each do |singleResult|
+      value = singleResult.pop
+      path = Array.new
+      insertionNode = nil
+      found_where_to_insert = false
+      singleResult.each do |a|
+          path.push("/#{a}")
+          nodes = XPath.match(doc,"/#{path}")
+          if (a != singleResult.last)
+            if nodes.length <= 0
+              path.pop
+              insertionNode = XPath.first(doc,"/#{path}")
+              insertionNode.insert_after insertionNode,Element.new(a)
+              path.push("/#{a}")
+              insertionNode = XPath.first(doc,"/#{path}")
+            elsif (nodes.length == 1)
+              insertionNode = nodes[0]
+            end
+          else
+            if nodes.length > 0
+              #leaf node already there and maybe with an old value from previous page
+            else
+              path.pop
+              e = Element.new(a)
+              e.text = value
+              insertionNode.insert_after insertionNode,e
+            end
+          end
+        end
+      end
+    doc.to_s
+  end
+
+  def parseVPMSresponse(response,product)
+    @premiums = Array.new
+    doc = Document.new(response)
+    nodes = XPath.match(doc,"//multiRef[returnCode=0]")
+    nodes.each do |node|
+      extractPremiums(node,product)
+    end
+    #display any VPMS issues
+    #probably won't result in runtime issue since IAB currently asks for more than VPMS will understand
+    #because VPMS schema built on product view of library and VPMS message is built from full library def of coverage
+    #at the mo
+    nodes = XPath.match(doc,"//multiRef[returnCode!=0]")
+    nodes.each do |node|
+      viewPremiumComputeErrors(node,product)
+    end
+  end
+  
+  def viewPremiumComputeErrors(node,product) #:nodoc
+    value = ""
+    node.each_child do |child|
+      case child.node_type
+      when :element
+        key, value = child.expanded_name, extractPremiums(child,product)
+        #put out 'error' message text
+        puts "#{value}" if key == "message"
+      when :text
+        key, value = '$', unescape(child.to_s).strip
+      end
+    end
+    value
+ end  
+  
+  def extractPremiums(node,product) #:nodoc
+    #vpms will return the following nodes of interest
+    #message, name, reffield, returncode, value
+    #like this
+    #key=message,value=
+    #key=name,value=F_CommercialProperty_#{product}_ContentsCover_CoverDetail_PremiumQuoteBreakdown_GrossAmount
+    #key=refField,value=
+    #key=returnCode,value=0
+    #key=value,value=125.55
+    value = ""
+    node.each_child do |child|
+      case child.node_type
+      when :element
+        key, value = child.expanded_name, extractPremiums(child,product)
+        @premiums.push(value.gsub("F_CommercialProperty_","").gsub('CommercialProperty',product).split("_")) if (key == "name") 
+        if (key == "value")
+           name = @premiums.pop
+           name.push(value)
+           @premiums.push(name)
+        end
+      when :text
+        key, value = '$', unescape(child.to_s).strip
+      end
+    end
+    value
+ end  
+  
+  def callVPMS(nvpxml)
+      headers = {
+              'Content-Type' => 'text/xml',
+              'SoapAction' => ""
+              }
+      Net::HTTP.start(APP_CONFIG['vpms_ip'], 8080) do |http|
+          response = http.post('/jvpms/services/ProductRequestProcessor',nvpxml,headers)
+          response.body
+      end
+  end
+  
+  def buildVPMSMessage(product,package,brand,params)
+      @instructionBlock = ""
+      
+nvpxml = '<?xml version="1.0" encoding="utf-8"?>
+<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
+    xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
+    xmlns:tns="http://com/csc/dip/webservice/core/"
+    xmlns:types="http://com/csc/dip/webservice/core/encodedTypes"
+    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+    xmlns:q1="http://core.webservice.dip.csc.com">
+    <soap:Body soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+        <tns:process>
+            <in0 href="#id1"/>
+        </tns:process>
+        <soapenc:Array id="id1" soapenc:arrayType="q1:ProductRequest[1]">
+            <Item href="#id3"/>
+        </soapenc:Array>
+        <q1:ProductRequest id="id3" xsi:type="q1:ProductRequest">
+            <productName xsi:type="xsd:string">CommercialPropertyProduct</productName>
+            <store xsi:type="xsd:boolean">false</store>
+            <traceMode xsi:type="xsd:boolean">false</traceMode>
+            <useUI xsi:type="xsd:boolean">false</useUI>
+            <actions href="#id5"/>
+        </q1:ProductRequest>'
+
+      @id=7
+      @instructionBlock << "<Item href=\"#id#{@id += 1}\"/>"        
+      nvpxml  << "<q1:SetAction id=\"id#{@id}\" xsi:type=\"q1:SetAction\">
+            <useUI xsi:type=\"xsd:boolean\">false</useUI>
+            <name xsi:type=\"xsd:string\">A_CommercialProperty_#{package}_Brand</name>
+            <value xsi:type=\"xsd:string\">#{brand}</value>
+        </q1:SetAction>"
+      @instructionBlock << "<Item href=\"#id#{@id += 1}\"/>"        
+      nvpxml  << "<q1:SetAction id=\"id#{@id}\" xsi:type=\"q1:SetAction\">
+            <useUI xsi:type=\"xsd:boolean\">false</useUI>
+            <name xsi:type=\"xsd:string\">A_CommercialProperty_#{package}_Package</name>
+            <value xsi:type=\"xsd:string\">#{product}</value>
+        </q1:SetAction>"   
+    
+    
+      nvpxml << createXMLMessage(product,params,true) do |k,v|
+        
+        @instructionBlock << "<Item href=\"#id#{@id += 1}\"/>"
+
+         "<q1:SetAction id=\"id#{@id}\" xsi:type=\"q1:SetAction\">
+            <useUI xsi:type=\"xsd:boolean\">false</useUI>
+            <name xsi:type=\"xsd:string\">A_CommercialProperty_#{package}_#{k}</name>
+            <value xsi:type=\"xsd:string\">#{v}</value>
+        </q1:SetAction>"
+      end
+
+      nvpxml << deriveComputes(package)
+      @instructionBlock << "<Item href=\"#id#{@id}\"/>"
+
+      nvpxml << "<soapenc:Array id=\"id5\" soapenc:arrayType=\"q1:VpmsAction[1]\">
+              #{@instructionBlock}
+             </soapenc:Array>"
+
+      nvpxml << "</soap:Body></soap:Envelope>"
+      nvpxml
+  end
+  
+  def deriveComputes(package)
+    nvpxml = ""
+    @pqbNodes.each do |n|
+      nvpxml << "<q1:ComputeAction id=\"id#{@id += 1}\" xsi:type=\"q1:ComputeAction\">
+            <useUI xsi:type=\"xsd:boolean\">false</useUI>
+            <name xsi:type=\"xsd:string\">F_CommercialProperty_#{package}_#{n}</name>
+        </q1:ComputeAction>"
+      @instructionBlock << "<Item href=\"#id#{@id}\"/>"
+    end
+    nvpxml
+  end
+end

data/lib/bizLogic/applymta.rb

@@ -0,0 +1,82 @@
+# Copyright (c) 2007-2008 Orangery Technology Limited 
+# You can redistribute it and/or modify it under the same terms as Ruby.
+# 
+module ApplyMTA  
+    def applyMTA(startDateTime,endDateTime,policyKey,origImage,newImage)     
+      appliedDateTime = Time.now.strftime('%Y-%m-%d') #TODO: add time into this
+      appliedDateTimeEpoch = Time.now.to_i
+      
+      xmldiff = determineDiff(origImage,newImage)
+    
+      doc = REXML::Document.new xmldiff
+
+      #remove the diff records of no interest to us
+      doc.elements.delete_all('//xupdate:append')
+      doc.elements.delete_all('//xupdate:remove')
+      doc.elements.delete_all('//xupdate:insert-after')
+      doc.elements.delete_all('//xupdate:insert-before')
+      doc.elements.delete_all('//xupdate:rename')
+
+      #the reduced doc
+      #puts doc.to_s
+
+      persist = Persist.instance
+      #add the MTA diff doc to the data store
+      key = persist.put('UUID',doc.to_s)
+      #puts "MTA diff doc key is #{key}"
+
+      #get the doc that holds the relationship between the policy and
+      #any MTA diff docs
+      #if it does not exist then get! will create it
+      mtas = persist.get!("#{policyKey}MTAS","<MTAS></MTAS>")
+      doc = REXML::Document.new mtas
+      mtasNode = REXML::XPath.first(doc, '//MTAS')
+      
+      #check to see if any MTAs exist that start later than this one
+      #if so mark them as rolled back and store them in a
+      #reapply->hash
+      reapply = []
+      
+      elems = doc.root.get_elements('//MTAS/MTA[@startDateTime]')
+      sorted = elems.map { |s| s.attributes["startDateTime"].to_s}.sort
+      #puts "This new MTA starting on #{startDateTime} yields out-of-sequence node(s):"
+      count = 0
+      sorted.each do |sd|
+        if (sd > startDateTime)
+          #roll these back
+          xpath = '//MTAS/MTA[@startDateTime = '+'"'+sd+'"]'
+          node = REXML::XPath.first(doc, xpath)
+          #puts node
+          #put into reapply-array providing of course not already rolled back
+          rb = node.attributes["rolledBack"]
+          if (rb != "true") then
+            reapply[count] = node.deep_clone
+            count = count + 1
+            #set current node to rolledBack
+            node.attributes["rolledBack"] = true
+          end
+        end
+      end
+      #puts "No nodes qualified." unless count > 0
+      #puts "\n"
+
+      #get first node and add element with meta data relating to the MTA diff doc added above
+      #meta data includes the key of the diff doc
+      mtasNode.add_element('MTA',{'key' => key , 'appliedDateTimeEpoch' => appliedDateTimeEpoch, 'appliedDateTime' => appliedDateTime, 'startDateTime' => startDateTime, 'endDateTime' => endDateTime, 'rolledBack' => false})
+
+      #check the reapply->array
+      #create new entries for any in the reapply->hash with new appliedDateTime attribute values      appliedDateTime = Time.now.strftime('%Y-%m-%d') #TODO: add time into this
+      reapply.each do |n|
+        appliedDateTimeEpoch = appliedDateTimeEpoch + 1
+        n.attributes["appliedDateTime"] = appliedDateTime
+        n.attributes["appliedDateTimeEpoch"] = appliedDateTimeEpoch
+        n.attributes["rolledBack"] = false
+        mtasNode.add_element(n)
+      end
+      #puts "Final state of MTA meta data doc:"+doc.to_s
+
+      mtaKey = persist.put("#{policyKey}MTAS",doc.to_s)
+      #puts "MTAS key is still:#{mtaKey}"
+      doc.to_s
+    end
+end

data/lib/bizLogic/continualQNB.rb

@@ -0,0 +1,8 @@
+module RefineQuote
+  def integrateData(session,origData,newData)
+    #this piece of logica takes two xml documents that need to be merge, there will be new nodes
+    #and overlapping nodes as question answers for the quote are made available
+    result = origData.gsub("</#{session[:product]}>","")+newData.gsub("<#{session[:product]}>","")
+    result
+  end
+end

data/lib/bizLogic/diff.rb

@@ -0,0 +1,39 @@
+# Copyright (c) 2007-2008 Orangery Technology Limited 
+# You can redistribute it and/or modify it under the same terms as Ruby.
+#
+
+module XMLDiff
+  def runCommand(cmd, inp='')
+    IO.popen(cmd, 'r+') do |io|
+      begin
+        io.write inp
+        io.close_write
+        return io.read
+      rescue Exception => e
+        e.message
+      end
+    end
+  end
+  
+  def determineDiff(origImage,newImage)
+    before, after, result = nil, nil, nil
+    begin      
+      before = Tempfile.new('iab')
+      before << origImage
+      before.close
+      after = Tempfile.new('iab')
+      after << newImage
+      after.close
+      result = Tempfile.new('iab')
+      cmd = "#{APP_CONFIG['python_xmldiff_path']} -x #{before.path} #{after.path} > #{result.path}"
+      runCommand(cmd)
+      xmlDiff = result.read
+      #identify only the update nodes - we do not need to know about nodes that have moved sequence
+      return xmlDiff
+    ensure
+      before.delete unless before == nil
+      after.delete unless after == nil
+      result.delete unless result == nil
+    end    
+  end
+end

data/lib/bizLogic/payment.rb

@@ -0,0 +1,88 @@
+# Copyright (c) 2007-2008 Orangery Technology Limited 
+# You can redistribute it and/or modify it under the same terms as Ruby.
+#
+# See doc/paypal_developer_info.txt
+# See www.codyfauser.com
+
+require 'active_merchant'
+
+module Payment
+    
+  include ActiveMerchant::Billing
+  
+  # returns a url
+  def setup_payment(params)
+    amount = params[:payment_amount].to_i
+    if amount < 1
+      return params[:cancel_return_url]
+    else
+      setup_response = payment_gateway.setup_purchase(amount, :ip => params[:ip], :return_url => params[:return_url], :cancel_return_url => params[:cancel_return_url])
+      return payment_gateway.redirect_url_for(setup_response.token)
+    end
+  end
+  
+  # returns a PaymentDetails
+  def get_gateway_payment_details(params)
+    details_response = payment_gateway.details_for(params[:token])
+    return PaymentDetails.new(details_response.success?, details_response.message, details_response.address)
+  end
+  
+  class PaymentDetails
+    attr_reader :error_message, :address
+    def initialize(success, error_message, address)
+      @success = success
+      @error_message = error_message
+      @address = address
+    end
+    def success?
+      @success
+    end
+  end
+  
+  # returns a PurchaseDetails
+  def complete_payment(params)
+    amount = params[:payment_amount].to_i
+    if amount < 1
+      #TODO localise error message
+      return PurchaseDetails.new(false, "Amount to pay must be greater than 0")
+    else
+      purchase = payment_gateway.purchase(amount, :ip => params[:ip], :payer_id => params[:payer_id], :token => params[:token])
+      return PurchaseDetails.new(purchase.success?, purchase.message)
+    end
+  end
+  
+  class PurchaseDetails
+    attr_reader :error_message
+    def initialize(success, error_message)
+      @success = success
+      @error_message = error_message
+    end
+    def success?
+      @success
+    end
+  end
+  
+  #  private
+  # TODO this is the test paypal account, needs to come from configuration
+  def payment_gateway
+    @payment_gateway ||= @@gateway_creator.call
+  end
+  
+  def self.gateway_creator=(creator)
+    @@gateway_creator = creator
+  end
+
+end
+
+
+#TODO THIS BELONGS IN A CONFIGURATION INCLUDE SOMEWHERE (which is why it looks funny here)
+
+# Put ActiveMerchant in test mode
+ActiveMerchant::Billing::Base.mode = :test
+
+# Use the ActiveMerchant Paypal Express gateway with these sandbox account details
+Payment.gateway_creator = lambda { ActiveMerchant::Billing::PaypalExpressGateway.new(
+    :login => 'kuboid_1208170947_biz_api1.gmail.com',
+    :password => '1208170953',
+    :signature => 'AMVR2Do.R-utyMm2sFyqPkqVzWDzAn4yKS9xT07kyzoyj5DFPG-wh53q'
+  ) }

data/lib/bizLogic/search.rb

@@ -0,0 +1,34 @@
+# Copyright (c) 2007-2008 Orangery Technology Limited 
+# You can redistribute it and/or modify it under the same terms as Ruby.
+#
+module Search
+  def executeSearch(product,params)
+    
+    mypredicate = ""
+    params.each do |k,v|
+      if (v.class.name == 'HashWithIndifferentAccess')
+        mypredicate << explodeHash(v)
+      end
+    end
+
+    open("#{File.dirname(__FILE__)}/xquery1") {|f| @query = f.read }
+    @query = @query.gsub("PRODUCT","#{product}").gsub("PREDICATE",mypredicate[0..-5])
+    
+    persist = Persist.instance
+    result = persist.find(@query)
+  end
+  
+  def explodeHash(h)
+    predicate = ""
+    h.each do |k,v|
+      if (v.class.name == 'HashWithIndifferentAccess')
+        predicate << explodeHash(v)
+      elsif (v.class.name == "String")
+        if (v.length > 0)
+          predicate << "$result//#{k} =\"#{v}\" and "
+        end
+      end
+    end
+    predicate
+  end
+end

data/lib/bizLogic/xquery1

@@ -0,0 +1,28 @@
+ declare namespace xupdate="http://www.xmldb.org/xupdate";
+for $result in collection("quotes.dbxml")/PRODUCT
+where PREDICATE
+return
+(
+    concat(
+    "@rowHash = {",
+    "'companyname' => '",$result//Insured[1]//CompanyName/string(),"',",
+    "'postcode' => '",$result//Insured[1]//Postcode/string(),"',",
+    "'key' => '", $result/dbxml:metadata("dbxml:name"),"',"),
+    "'mtas' => [",		
+    for $mtas in collection("quotes.dbxml")/MTAS/MTA,
+         $mta in collection("quotes.dbxml")
+    where $mtas/dbxml:metadata("dbxml:name") = concat($result/dbxml:metadata("dbxml:name"),"MTAS")
+    and $mta/dbxml:metadata("dbxml:name") = $mtas/@key
+    return (
+                concat(
+                  "{",
+                 "'AD' => '",$mtas/@appliedDateTime/string(),"',",
+                 "'SD' => '",$mtas/@startDateTime/string(),"',",
+                 "'ED' => '",$mtas/@endDateTime/string(),"',",
+                 "'RB' => '",$mtas/@rolledBack/string(),"',",
+                 "'Changes' => '",$mta//xupdate:update/@select," -to- ",$mta//xupdate:update/string(),"'",
+                "},"
+                )
+            ),
+    "]}"
+)