rtml 1.2.2

data/app_generators/rtml/templates/rtml/app/helpers/beryl_helper.rb

@@ -0,0 +1,72 @@
+module BerylHelper
+  def integer_as_currency(integer)
+    integer = integer.to_i unless integer.kind_of? Fixnum
+    decimal = integer / 100.0
+    decimal = "#{decimal}0" if decimal.to_s =~ /\..$/
+    "$#{decimal}"
+  end
+  
+  def tid_for_transaction(trans)
+    if trans.hidden_data
+      trans.hidden_data[:tid] || state[:itid] || params[:itid]
+    else
+      state[:itid] || params[:itid]
+    end
+  end
+
+  def receipt_text(content)
+    if content.kind_of? Hash
+      controller.rtml_interface.content_of_view(content)
+    else
+      content.to_s.gsub(/\n/, '<br/>')
+    end
+  end
+
+  def left(r=nil, b=nil, &block)
+    align("left", r, b, &block)
+  end
+
+  def right(r=nil, b=nil, &block)
+    align("right", r, b, &block)
+  end
+
+  def align(a, r=nil, b=nil, &block)
+    b, r = r, b if r.kind_of?(Symbol)
+    c = case b
+      when :bold then " class='bold'"
+      when :small then " class='small'"
+      else ''
+    end
+    "<td align='#{a}'#{c}>#{r || yield}</td>"
+  end
+
+  def payment_keys
+    (((@transaction.payment_order.empty?) ?
+            @transaction.payment_data.keys :
+            @transaction.payment_order % @transaction.payment_data.keys) -
+      @transaction.payment_data.keys.select { |k| @transaction.payment_data[k].nil? })
+  end
+
+  def payment_value(key)
+    value = @transaction.payment_data[key]
+    # special cases
+    value = if value.kind_of?(Symbol) && @transaction.respond_to?(value)
+      @transaction.send(value)
+    elsif value.kind_of?(Proc)
+      value.call(@transaction)
+    else
+      value
+    end
+
+#    if value.blank?
+#      case key
+#        when :cashback, 'cashback'
+#          value = @transaction.amount_other
+#        when :total, 'total'
+#          value = (@transaction.amount.blank? ? 0 : @transaction.amount) +
+#                  (@transaction.amount_other.blank? ? 0 : @transaction.amount_other)
+#      end
+#    end
+    value
+  end
+end

data/app_generators/rtml/templates/rtml/app/helpers/beryl_tml_helpers/auth_result.rb

@@ -0,0 +1,56 @@
+Rtml.actions_for BerylController do
+  def auth_result
+    includes tml_stylesheet
+    layout tml_layout
+    allow_cache false
+    default_screen :result
+    string :owner => 'MERCHANT'
+    string :after_receipt => 'another_receipt'
+    string :signature_line => ''
+  
+    void = url_for(:action => "index", :only_path => true)
+    
+    #receipt = url_for(:action => "receipt", :only_path => true)
+    #void = url_for(:action => "index", :anchor => :void_trans, :only_path => true)
+
+    unless @transaction.auth_code.nil?
+      screen :result, :next => :receipt, :timeout => 3 do
+        timeout nil if @duplicate
+        set :owner => 'MERCHANT'
+        set :after_receipt => '#another_rcpt'
+        if controller.params[:transaction_type].to_s.downcase == 'debit'
+          set :signature_line => ''
+        else
+          set :signature_line => 'X__________________________'
+        end
+        
+        display "Transaction Approved<br/>Auth Code: #{@transaction.auth_code}"
+      end
+      
+      receipt :receipt, :next => 'tmlvar:after_receipt' do
+        display
+      end
+      
+      screen :another_rcpt do
+        set :after_receipt => "#complete"
+        set :signature_line => ''
+        set :owner => 'CUSTOMER'
+        display
+      end
+      
+      screen :complete, :next => (@transaction.hidden_data[:after_receipt] ||
+                                  url_for(:action => "index", :only_path => true))
+    else
+      screen :result, :next => :complete do
+        #set "decline_reason", :to => @transaction.message.to_s
+        code = @transaction.hidden_data
+        code = code[:response_code] if code
+        errmsg = "Transaction Declined"
+        errmsg = @transaction.hidden_data[:error_message] if @transaction.hidden_data and @transaction.hidden_data[:error_message]
+        display "#{errmsg}<br/>#{code} - #{@transaction.message}"
+      end
+
+      screen :complete, :next => void
+    end
+  end
+end

data/app_generators/rtml/templates/rtml/app/helpers/beryl_tml_helpers/common.rb

@@ -0,0 +1,19 @@
+Rtml.actions_for BerylController do
+  hide_action :tml_layout, :tml_stylesheet
+  
+  def build_menu
+    super
+    # examples:
+    #  menu_item :sale
+    #  menu_item :refund
+    #  menu_item :sale_with_cashback, :next_screen => :sale_cb, :position => 1
+  end
+  
+  def tml_layout
+    File.join("rtml", "/beryl_#{color_display? ? "color" : "mono"}")
+  end
+
+  def tml_stylesheet
+    File.join("/stylesheets/rtml", "/beryl_#{color_display? ? "color" : "mono"}.css")
+  end
+end

data/app_generators/rtml/templates/rtml/app/helpers/beryl_tml_helpers/index.rb

@@ -0,0 +1,82 @@
+Rtml.actions_for BerylController do
+  def index
+    controller.expires_at { 8.hours.from_now }
+
+    on :cancel => :idle
+    default_screen :init
+    cache true
+    layout tml_layout
+    includes tml_stylesheet
+    if request.headers['REQUEST_URI'] != url_for(:action => 'index', :only_path => false)
+      includes url_for(:action => 'index')
+    end
+    add_features!
+
+    screen :init, features.init(self, :idle) do
+    end
+  
+    screen :idle, :next => :enter_amount do |scr|
+      avs_screen = ((feature_config.sale.address_verification > 0) ? :avs_zip : :submit_data)
+      scr.set 'submit_to' => url_for(:action => 'sale')
+      scr.set 'title' => ['tmlvar:transaction_type', '+', ' Sale']
+      scr.set 'screens.after_swipe' => '#enter_amount',
+          'screens.emv.exit_point' => avs_screen.to_screen_ref
+      scr.set 'confirm.accept' => avs_screen.to_screen_ref
+      scr.set 'confirm.reject' => '#enter_amount'
+      scr.on :menu => :main_menu, :cancel => :idle
+      scr.on :f3 => :main_menu
+      scr.layout nil
+            
+      scr.build :tform do |tform|
+        tform.baddata :max => 3, :next => :idle.to_screen_ref do
+          table :border => 2, :class => 'warning' do; tr { td { span { getvar :name => 'err.baddata_reason' } } } end
+        end
+        tform.build :name => :card, :parser => 'mag', :parser_params => 'read_data'
+        if controller.feature_config.common.emv_support
+          tform.build :name => :card, :parser => 'icc_emv', :parser_params => 'init_app'
+        end
+        tform.prompt do |prompt| prompt.display end
+      end
+      #scr.display
+    end
+    
+    screen :main_menu, embedded_app do
+      on 1 => :menu_credit,       # CREDIT CARD
+         2 => :menu_debit,        # DEBIT CARD
+#         3 => :construction, # EBT
+#         4 => :construction, # REPRINT
+#         5 => :construction, # REPORTS
+#         6 => :construction, # SETTLE
+         0 => embedded_app,
+         'menu' => :admin
+      set :title => "Main Menu"
+      display
+    end
+
+    screen :admin, :on_cancel => :main_menu do
+      on 1 => :about, 2 => embedded_app
+      display
+    end
+
+    screen :about, :admin do
+      on :cancel => :admin
+      layout nil
+      display
+    end
+    
+    for scrn in ['credit', 'debit']
+      screen "menu_#{scrn}" do |scr|
+        scr.on :cancel => :main_menu
+        scr.assert
+        if scrn == 'debit'
+          only = { :only => [ :sale, :return ] }
+          scr.on feature_events(only) unless feature_events(only).empty?
+        else scr.on feature_events unless feature_events.empty?
+        end
+        scr.set :transaction_type => scrn.to_s.titleize
+        scr.set :title => "#{scrn.titleize} Menu"
+        scr.display
+      end
+    end
+  end
+end

data/app_generators/rtml/templates/rtml/app/helpers/rtml/magcard_demo_helper.rb

@@ -0,0 +1,2 @@
+module Rtml::MagcardDemoHelper
+end

data/app_generators/rtml/templates/rtml/app/helpers/rtml/magcard_demo_tml_helpers/authorized.rb

@@ -0,0 +1,10 @@
+Rtml::actions_for Rtml::MagcardDemoController do
+  def authorized
+    layout tml_layout
+    includes :stylesheet, tml_stylesheet
+    
+    screen :main, :next => url_for(:action => 'index') do
+      display
+    end
+  end
+end

data/app_generators/rtml/templates/rtml/app/helpers/rtml/magcard_demo_tml_helpers/common.rb

@@ -0,0 +1,20 @@
+Rtml.actions_for Rtml::MagcardDemoController do
+  # Don't turn these methods into Rails or RTML actions
+  hide_action :build_menu, :tml_layout, :tml_stylesheet
+  
+  def build_menu
+    super
+    # examples:
+    #  menu_item :sale
+    #  menu_item :refund
+    #  menu_item :sale_with_cashback, :next_screen => :sale_cb, :position => 1
+  end
+  
+  def tml_layout
+    File.join("rtml", "/magcard_demo_#{color_display? ? "color" : "mono"}")
+  end
+
+  def tml_stylesheet
+    File.join("/stylesheets/rtml", "/magcard_demo_#{color_display? ? "color" : "mono"}.css")
+  end
+end

data/app_generators/rtml/templates/rtml/app/helpers/rtml/magcard_demo_tml_helpers/index.rb

@@ -0,0 +1,33 @@
+Rtml::actions_for Rtml::MagcardDemoController do
+  def index
+    on :cancel => embedded_app
+    default_screen :init
+    layout tml_layout
+    includes :stylesheet, tml_stylesheet
+
+    screen :init, :next => :main do
+      set 'payment.amount' => 0
+    end
+    
+    screen :main, :next => :enter_amount do
+      card :parser => :mag, :params => :read_data do
+        baddata :partial => 'error', :locals => { :message => 'Could not read card data!' }
+        prompt display
+      end
+    end
+    
+    screen :enter_amount, :next => :send_data do
+      display
+    end
+    
+    screen :send_data do
+      submit :target => url_for(:action => 'authorize'), :on_error => :submit_error do
+        get_transaction_variables # will automatically include all transaction-related TML variables
+      end
+    end
+    
+    screen :submit_error, :next => :init do
+      display :partial => 'error', :locals => { :message => 'Could not submit data!' }
+    end
+  end
+end

data/app_generators/rtml/templates/rtml/app/helpers/rtml/oe/btmlpa_helper.rb

@@ -0,0 +1,2 @@
+module Rtml::Oe::BtmlpaHelper
+end

data/app_generators/rtml/templates/rtml/app/helpers/rtml/oe/btmlpa_tml_helpers/auth_result.rb

@@ -0,0 +1,23 @@
+Rtml.actions_for Rtml::Oe::BtmlpaController do
+  def auth_result
+    includes tml_stylesheet
+    layout tml_layout
+    allow_cache false
+  
+    @receipt = url_for(:action => "receipt", :anchor => :rcpt_start, :only_path => true)
+    @void = url_for(:action => "index", :anchor => :void_trans, :only_path => true)
+
+    unless @transaction.auth_code.nil?
+      # was approved
+      screen :result, :next => @receipt, :timeout => 1 do
+        set "payment.auth_code", :to => @transaction.auth_code.to_s
+        display "Transaction Approved<br/>Auth Code: #{@transaction.auth_code}"
+      end
+    else
+      screen :result, :next => @void, :timeout => 10 do
+        set "decline_reason", :to => @transaction.message.to_s
+        display "Transaction Declined<br/>#{@transaction.message}"
+      end
+    end
+  end
+end

data/app_generators/rtml/templates/rtml/app/helpers/rtml/oe/btmlpa_tml_helpers/common.rb

@@ -0,0 +1,23 @@
+Rtml.actions_for Rtml::Oe::BtmlpaController do
+  before_filter :build_menu
+  
+  def build_menu
+    #super
+    menu_item :sale,          :partial => 'menu_sale'
+    menu_item :sale_cashback, :partial => 'menu_sale_cashback'
+    menu_item :refund,        :partial => 'menu_refund'
+    menu_item :reversal,      :partial => 'menu_reversal'
+    menu_item :duplicate,     :partial => 'menu_duplicate'
+    menu_item :examples,      :partial => 'menu_examples'
+    menu_item :other,         :partial => 'menu_other'
+    menu_item :about,         :partial => 'menu_about'
+  end
+  
+  def tml_layout
+    "rtml/oe/btmlpa_i#{color_display? ? "8550" : "5100"}"
+  end
+  
+  def tml_stylesheet
+    "/stylesheets/rtml/oe/btmlpa/i#{color_display? ? "8550" : "5100"}.css"
+  end
+end

data/app_generators/rtml/templates/rtml/app/helpers/rtml/oe/btmlpa_tml_helpers/dynamic.rb

@@ -0,0 +1,11 @@
+Rtml.actions_for Rtml::Oe::BtmlpaController do
+  def dynamic
+    on :cancel => embedded_app
+    layout tml_layout
+    includes tml_stylesheet
+    
+    screen :response, :next => url_for(:action => 'index', :anchor => @destination, :only_path => true), :timeout => 5 do
+      display @message.to_s
+    end
+  end
+end

data/app_generators/rtml/templates/rtml/app/helpers/rtml/oe/btmlpa_tml_helpers/icc.rb

@@ -0,0 +1,384 @@
+Rtml.actions_for Rtml::Oe::BtmlpaController do
+	def icc
+    @assert  = url_for :only_path => true, :action => :index, :anchor => :assert
+    @abort   = url_for :only_path => true, :action => :index, :anchor => :trans_abrt
+    @index   = url_for :only_path => true, :action => :index
+    @reject  = url_for :only_path => true, :action => :index, :anchor => :reject_trans
+    @receipt = url_for :only_path => true, :action => :receipt #, :anchor => :rcpt_start #:receipt
+    @void    = url_for :only_path => true, :action => :index, :anchor => :void_trans
+    @compl_txn = url_for :only_path => true, :action => :index, :anchor => :compl_txn
+    
+    @data_dump = %Q`<getvar name="err.baddata_reason"/>
+            <br/>
+            <br/>
+            err.high = <getvar name="err.code.high"/> <br/>
+            err.low  = <getvar name="err.code.low"/><br/>
+            card.emv.apdu_list: <getvar name="card.emv.apdu_list"/>`
+    
+	  on :cancel => :index, :error => :eror_scr
+    strings :txt_cvm, :app_item, :app_sel_mode, :app_list, :app, :aid, :app_status, :sep, :aid_list,
+            'btmlpa.emv.selection_list', 'btmlpa.emv.selected_item'
+    integers :index, :count
+    layout tml_layout
+    
+    # Copy an application into the list of applications to be displayed
+    tml_document.concat <<-end_tml
+      <screen id="copy_app1" next="#copy_app2">
+        <setvar name="app" lo="tmlvar:card.emv.app_list" op="item" ro="tmlvar:index" />
+        <strtemplate name="app_item" format="%1%2: %3">
+          <getvar name="sep" />
+          <getvar name="index" format="^00" />
+          <getvar name="app" />
+        </strtemplate>
+      </screen>
+    end_tml
+
+    multiple_screens do
+      # If card requires cardholder confirmation, display the list
+      # else, check if there are several applications or only a single one
+      check_apps :next => @assert do
+        set :count, :lo => "tmlvar:card.emv.app_status_list", :op => "number"
+        next_screen :man_app_sel, :if => "tmlvar:card.emv.selected_app == manual"
+        next_screen :chk_multi, :if => ["tmlvar:card.emv.selected_app", "==", ""]
+      end
+      
+      # Check if there are several applications or only a single one.
+      # If there are several applications, display the list for manual selection, even if not required (best practice)
+      # If there is only a single one, try to select it automatically
+      chk_multi :next => :man_app_sel do
+        next_screen :auto_app_sel, :if => "tmlvar:count == 1"
+      end
+      
+      # Enable automatic application selection
+      auto_app_sel :next => :final_select, :timeout => 1 do
+        set 'btmlpa.emv.txn_app', :to => "tmlvar:card.emv.app_list"
+        set :app_sel_mode, :to => "auto"
+        set "card.emv.selected_app", :to => ""
+        display "Auto Selection"
+      end
+      
+      # Enable cardholder manual application selection
+      man_app_sel :next => @assert, :timeout => 1 do
+        set :app_sel_mode, :to => 'manual'
+        next_screen :prepare_list, :if => ["card.emv.app_list", "!=", ""]
+        display "Manual Selection"
+      end
+    
+      # Building an application list for user selection
+      prepare_list :next => @assert do
+        set [ :sep, :app_list, :aid_list, "btmlpa.emv.selection_list" ], :to => ""
+        set :index, :to => 0
+        set :count, :lo => "tmlvar:card.emv.app_status_list", :op => "number"
+        next_screen :check_status, :if => "tmlvar:count >= 0"
+      end
+    
+      # Copy the active applications into the list to be displayed. Inactive applications
+      # are just skipped.
+      check_status :next => @assert do
+        set :app_status, :to => ["tmlvar:card.emv.app_status_list", "item", "tmlvar:index"]
+        next_screen :copy_app1, :if => "tmlvar:app_status == active"
+        next_screen :loop_app, :if => "tmlvar:app_status == inactive"
+      end
+    
+      copy_app2 :next => :loop_app do
+        set "btmlpa.emv.selection_list", :to => "tmlvar:btmlpa.emv.selection_list + tmlvar:app_item"
+        set :app => "tmlvar:sep + tmlvar:app"
+        set :app_list => "tmlvar:app_list + tmlvar:app"
+        set :aid => %W(tmlvar:card.emv.aid_list item tmlvar:index)
+        set :aid => "tmlvar:sep + tmlvar:aid"
+        set :aid_list => "tmlvar:aid_list + tmlvar:aid"
+        set :sep => ";"
+      end
+    
+      # Increment the index for application status check process
+      loop_app :next => :check_status do
+        set :index, :to => "tmlvar:index + 1"
+        next_screen :select_first, :if => "tmlvar:index == tmlvar:count"
+      end
+    
+      # Check whether the list of available applications is empty or not
+      select_first :next => :rej_no_app do
+        set :count, :lo => "tmlvar:app_list", :op => "number"
+        next_screen :show_app_lst, :if => "tmlvar:count >= 0"
+      end
+    
+      # If none of the applications are active, abort the transaction
+      rej_no_app :next => @abort do
+        display "All applications are inactive.<br/>Transaction will be rejected."
+      end
+    
+      # Show the list of available applications for cardholder selection
+      show_app_lst :on_cancel => @abort do
+        set "btmlpa.emv.selected_item", :to => %W(tmlvar:btmlpa.emv.selection_list item 0)
+        next_screen @assert
+        next_screen :select_aid1, :if => ["tmlvar:btmlpa.emv.selected_item","!=",""]
+        display <<-end_tml
+          <form>
+            <div class="title"><span class="title">Select ICC Application:</span></div>
+            <div class="menu"><input type="list" name="btmlpa.emv.selected_item"
+                     value="tmlvar:btmlpa.emv.selection_list"
+                     rows="4" width="100%" multiple="no" /></div>
+          </form>
+        end_tml
+      end
+    
+      # Based on cardholder selection, fill the card.emv.selected_aid
+      select_aid1 :on_cancel => @index, :timeout => 1 do
+        set 'btmlpa.emv.selected_item', :lo => "tmlvar:btmlpa.emv.selected_item",
+                                        :op => :format, :format => 'nn'
+        set :index, :to => "tmlvar:btmlpa.emv.selected_item"
+        set 'card.emv.selected_app' => ""
+        set 'card.emv.selected_aid' => %W(tmlvar:aid_list item tmlvar:index)
+        set 'btmlpa.emv.txn_aid' => "tmlvar:card.emv.selected_aid"
+        set 'btmlpa.emv.txn_app' => %W(tmlvar:app_list item tmlvar:index)
+        next_screen @assert
+        next_screen :final_select, :if => [ "tmlvar:card.emv.selected_aid", "!=", "" ]
+        display "<getvar name='btmlpa.emv.txn_app' /><br/><getvar name='btmlpa.emv.txn_aid' /><br/>"
+      end
+    
+      # Final application selection and initialization after application auto/manual choice
+      final_select :next => :chk_resel do
+        card :parser => :icc_emv, :params => :final_select do
+          baddata "Fail 01: #{@data_dump}" do
+            max 1
+            next_screen @abort
+          end
+        end
+      end
+    
+      # Ensure the final selection was OK. If not, the application list will be re-displayed
+      # If application selection was OK, go to PIN check
+      # Else, try to select another one
+      chk_resel :next => :icc_get_cvm do
+        next_screen :dsp_selfld, :if => "tmlvar:err.code.low == -32817"
+        next_screen :dsp_selfld, :if => "tmlvar:err.code.low == -4380"
+      end
+    
+      ###############################################
+      # These screens are not used by the BTMLPA. They can be used to safely cancel an initiated transaction.
+      # This can be used, for example, to read the customer name from an EMV card after the application selection,
+      # but to correctly stop the transaction from gouing further. This cancellation should not be required for
+      # normal EMV transaction.
+      cncltran :next => :dspcncl do
+        card :parser => :icc_emv, :params => :cancel do
+          baddata "<getvar name='err.baddata_reason' />", :max => 1, :next => @abort
+        end
+      end
+    
+      dspcncl :next => @abort do
+        display %Q`
+          The transaction has been canceled.<br/>
+          Cardholder name = <getvar name='card.cardholder_name' /><br/>
+          AAC = <getvar name='card.emv.aac' />
+        `
+      end
+      ###############################################
+    
+      # If final application selection failed, prompt the cardholder for another
+      # application selection if a list was previously displayed
+      dsp_selfld :next => :auto_app_sel do
+        next_screen :man_app_sel, :if => "tmlvar:app_sel_mode == manual"
+        display %Q`
+          Fail 02: 
+          #{@data_dump}<br/>
+          app: <getvar name="card.emv.app_list"/><br/>
+          status: <getvar name="card.emv.app_status_list"/>
+        `
+      end
+    
+      # icc screen analyses card verification method
+      icc_get_cvm :next => :chksign do
+        card :parser => :icc_emv, :params => :get_cvm do
+          baddata "Fail 03: #{@data_dump}" do
+            max 1
+            next_screen @abort
+          end
+        end
+      end
+    
+      chksign :next => :chkcvm do
+        set :txt_cvm, :to => ''
+        next_screen :set_sign, :if => "tmlvar:card.emv.signature == 1"
+      end
+    
+      set_sign :next => :chkcvm do
+        set :txt_cvm, :lo => " + SIGNATURE"
+      end
+    
+      chkcvm :next => @assert do
+        variants "tmlvar:card.parser.verdict == reject" => @reject,
+                 "tmlvar:card.parser.cvm == pin"        => :enter_pin,
+                 "tmlvar:card.parser.cvm == pin_online" => :online_cvm,
+                 "tmlvar:card.parser.cvm == no_cv"      => :cv_no_cv,
+                 "tmlvar:card.parser.cvm == "  => :icc_rsk_mgmt
+      end
+    
+      # Empty form, just to set the cvr
+      online_cvm :next => :bypass_cvm, :timeout => 1 do
+        display "ONLINE PIN <getvar name='txt_cvm' />"
+      end
+    
+      bypass_cvm :next => :icc_get_cvm do
+        set 'card.parser.cvr', :to => 'bypassed'
+      end
+    
+      cv_no_cv :next => :icc_get_cvm, :timeout => 1 do
+        set 'card.parser.cvr', :to => 'ok'
+        display "NO CVM <getvar name='txt_cvm' />"
+      end
+    
+      enter_pin :on_cancel => :cvr_no_pin, :timeout => 1, :next => @assert do
+        next_screen :enterpin, :if => "tmlvar:card.emv.last_attempt == 0"
+        next_screen :enterpinlast, :if => "tmlvar:card.emv.last_attempt == 1"
+        display "Offline PIN <getvar name='txt_cvm' />"
+      end
+    
+      # If user presses cancel, we should present him the next card verification method
+      enterpin :on_cancel => :cvr_no_pin, :next => :verify_pin do
+        concat <<-end_tml
+          <tform>
+            <baddata max="1" next="#{@abort}">
+              #{layout.to_tml { %Q`
+                  <getvar name="err.baddata_reason"/><br/>
+                  err.high = <getvar name="err.code.high"/> <br/>
+                  err.low  = <getvar name="err.code.low"/><br/>
+              `} }
+            </baddata>
+            <!-- calls SSA for secure PIN entry -->
+            <pinentry type="icc" prompt="Enter PIN" />
+          </tform>
+        end_tml
+      end
+    
+      cvr_no_pin :next => :icc_get_cvm do
+        set "card.parser.cvr", :to => "failed"
+      end
+    
+      enterpinlast :timeout => 3, :on_cancel => :cvr_no_pin, :next => :pinlast do
+        display "Last Try."
+      end
+    
+      pinlast :on_cancel => :cvr_no_pin, :next => :verify_pin do
+        concat <<-end_tml
+          <tform>
+            <baddata next="#{@abort}">
+              #{layout.to_tml { %Q` <getvar name="err.baddata_reason"/><br/> `} }
+            </baddata>
+            <!-- calls SSA for secure PIN entry -->
+            <pinentry type="icc" prompt="Enter PIN" />
+          </tform>
+        end_tml
+      end
+    
+      #Verifies PIN
+      verify_pin :next => @assert do
+        variants "tmlvar:card.parser.verdict == reject" => @reject,
+                 "tmlvar:card.parser.cvr == ok" => :icc_get_cvm,
+                 "tmlvar:card.parser.cvr == ok_msg" => :pin_ok_msg,
+                 "tmlvar:card.parser.cvr == failed" => :wrong_pin,
+                 "tmlvar:card.parser.cvr == pin_tries" => :wrong_pin
+        card :parser => :icc_emv, :params => :verify do
+          baddata %Q`<getvar name="err.baddata_reason"/><br/>
+                      err.high = <getvar name="err.code.high"/> <br/>
+                      err.low  = <getvar name="err.code.low"/>` do
+            max 1; next_screen @abort
+          end
+        end
+      end
+    
+      #Notifies that user entered correct PIN
+      pin_ok_msg :timeout => 1, :on_cancel => :icc_get_cvm, :next => :icc_get_cvm do
+        display "PIN OK"
+      end
+    
+      # Notifies that user entered incorrect PIN
+      wrong_pin :timeout => 1, :on_cancel => :icc_get_cvm, :next => @assert do
+        variants "tmlvar:card.parser.cvr == failed" => :enter_pin,
+                 "tmlvar:card.parser.cvr == pin_tries" => :icc_get_cvm
+        display "Incorrect PIN"
+      end
+      
+      # Perform the risk management.
+      # The "icc_emv" parser will:
+      #   analyze amount and transaction type;
+      #   analyze previous submission attempt ("oebr.econn" value);
+      #   update "card.parser.verdict" variable;
+      #   fill "card.parser.reject_reason" variable, if necessary.
+      icc_rsk_mgmt :next => :chk_verdict do
+        set 'btmlpa.emv.txn_aid', :to => "tmlvar:card.emv.aid"
+        set 'payment.txn_date' => 'tmlvar:terminal.datetime'
+        set 'payment.auth_code' => ''
+        set 'payment.auth_resp_code' => ''
+        
+        card :parser => :icc_emv, :params => :risk_mgmt do
+          baddata "Fail 04: #{@data_dump}" do
+            max 1; next_screen @abort
+          end
+        end
+      end
+    
+      chk_verdict :next => @assert do
+        set 'oebr.submit_mode', :to => "tmlvar:card.parser.verdict"
+        variants "tmlvar:card.parser.verdict == reject" => :off_rej,
+                 "tmlvar:card.parser.verdict == offline" => :off_comp,
+                 "tmlvar:card.parser.verdict == online" => :icc_submit
+      end
+    
+      off_rej :next => @abort, :timeout => 1 do
+        display " REJECTED "
+      end
+    
+      off_comp :next => :icc_submit, :timeout => 1 do
+        display " TRANSACTION PROCESSED OFFLINE"
+      end
+    
+      # Submits transaction data to host
+      icc_submit :next => @receipt do
+        set 'card.expiry_date', :to => '2010/12/31'
+        set 'oebr.submit_mode', :to => 'tmlvar:card.parser.verdict'
+        submit :target => url_for(:action => "auth"), :on_error => :icc_conn_fld do
+          get_variables :transid, :currency_code, 'oebr.submit_mode', 'oebr.time_zone',
+                        'payment.trans_type', 'payment.amount', 'payment.amount_other', 'payment.txn_date',
+                        'card.pan', 'card.issue_number', 'card.expiry_date', 'card.cardholder_name',
+                        'card.effective_date', 'card.input_type', 'card.mag.iso2_track',
+                        'card.emv.aid', 'card.emv.aip', 'card.emv.auc', 'card.emv.atc', 'card.emv.aac',
+                        'card.emv.tc', 'card.emv.arqc', 'card.emv.iad', 'card.emv.tvr', 'card.emv.unumber'
+        end
+      end
+    
+      # This screen is used when the host is unreachable
+      icc_conn_fld :next => @assert do
+        next_screen :con_fld_onln, :if => "tmlvar:oebr.submit_mode == online"
+        next_screen :con_fld_ofln, :if => "tmlvar:oebr.submit_mode == offline"
+      end
+    
+      con_fld_onln :next => :icc_rsk_mgmt, :timeout => 2 do
+        display "HOST IS UNREACHABLE"
+      end
+    
+      con_fld_ofln :next => :off_rej, :timeout => 2 do
+        display "OFFLINE TRANSACTION POOL IS FULL"
+      end
+    
+      # Screen which may be referred to by dynamic responses
+      icc_tc_aac :on_cancel => @abort, :next => @void do
+        set 'oebr.submit_mode', :to => 'offline'
+        next_screen @receipt, :if => ['tmlvar:card.emv.tc', '!=', '']
+        submit :target => url_for(:action => 'auth_icc_2'),
+               :on_error => url_for(:action => 'index', :anchor => :compl_txn) do
+          get_variables 'card.emv.aac', 'card.emv.tc'
+          get_variable 'transid'
+        end
+      end
+    
+      error_scr do
+        display <<-end_tml
+            code-low: <getvar name="err.code.low"/> <br/>
+            code-high: <getvar name="err.code.high"/> <br/>
+            baddata_reason: <getvar name="err.baddata_reason"/> <br/>
+            descr: <getvar name="err.description"/> <br/>
+        end_tml
+      end
+    end
+  end
+end