anchor.diff:  				  :country cmpcountry
   				  :zipcode cmpzipcode
   				  :website cmpwebsite
  -				  :cmp-type "TRIAL"
  +				  :cmp-type cmptype
   				  :deleted-state "N"
   				  :created-by nil
   				  :updated-by nil)))
  -	(unless(and  ( or (null cmpname) (zerop (length cmpname)))
  +      (hunchentoot:log-message* :info "Company Type = ~A" cmptype)
  +    (unless(and  ( or (null cmpname) (zerop (length cmpname)))
   		     ( or (null cmpaddress) (zerop (length cmpaddress)))
   		     ( or (null cmpzipcode) (zerop (length cmpzipcode))))
   	  (cond 
  
positive.code: 
  
  
  (defun com-hhub-transaction-request-new-company ()
    (cl-who:with-html-output (*standard-output* nil)
        (:div :class "row" 
  	    (:div :class "col-xs-12 col-sm-12 col-md-12 col-lg-12"
  		  (with-html-form "form-addcompany" "hhubnewcompreqemailaction"
  		    (:img :class "profile-img" :src "/img/logo.png" :alt "")
  		    (:div :class "form-group"
  			  (:input :class "form-control" :name "cmpname" :maxlength "30"  :value "" :required T  :placeholder "Enter Store Name ( max 30 characters) " :type "text" ))
  
negative.code: 
  (defun dod-controller-new-company-request-email ()
    (let*  ((cmpname (hunchentoot:parameter "cmpname"))
  	  (cmptype (hunchentoot:parameter "cmptype"))
  	  (cmpaddress (hunchentoot:parameter "cmpaddress"))
  	  (cmpcity (hunchentoot:parameter "cmpcity"))
  	  (cmpstate (hunchentoot:parameter "cmpstate"))
  