anchor.diff:  
   (defun com-hhub-policy-vendor-bulk-product-add (&optional  (params nil))
     :documentation "Vendor Add bulk products using CSV file. "
  -  (let* ((company (cdr (assoc "company" params :test 'equal))))
  +  (let* ((company (cdr (assoc "company" params :test 'equal)))
  +	 (suspend-flag (slot-value company 'suspend-flag)))
       (cond
  -      ((com-hhub-attribute-company-issuspended company)
  +      ((com-hhub-attribute-company-issuspended suspend-flag)
          (error 'hhub-abac-transaction-error :errstring (format nil "Account Name: ~A. This Account is Suspended." (slot-value company 'name))))
         ((<  (cdr (assoc "prdcount" params :test 'equal)) (com-hhub-attribute-vendor-bulk-product-count)) T))))
   
  
positive.code: 
  (defun com-hhub-policy-customer&vendor-create (&optional (params nil))
    (let* ((company (cdr (assoc "company" params :test 'equal)))
  	 (currvendorcount (length (select-vendors-for-company company)))
  	 (currcustomercount (length (select-customers-for-company company)))
  	 (maxcustomercount (com-hhub-attribute-company-maxcustomercount company))
  	 (maxvendorcount (com-hhub-attribute-company-maxvendorcount company)))
      (when (<= (- maxvendorcount currvendorcount) 0 )
        (error 'hhub-abac-transaction-error :errstring (format nil "Account Name: ~A. You have exceeded maximum numbers of vendors allowed to be created." (slot-value company 'name))))
      (when (<= (- maxcustomercount  currcustomercount) 0)
        (error 'hhub-abac-transaction-error :errstring (format nil "Account Name: ~A. You have exceeded maximum numbers of customer allowed to be created." (slot-value company 'name))))
      (when (com-hhub-attribute-company-issuspended company)
        (error 'hhub-abac-transaction-error :errstring (format nil "Account Name: ~A. This Account is Suspended." (slot-value company 'name))))))
  
  
  
  
  (defun com-hhub-policy-vendor-add-product-action (&optional (params nil))
    (let* ((company (cdr (assoc "company" params :test 'equal))))
      (if (com-hhub-attribute-company-issuspended company)
  	(error 'hhub-abac-transaction-error :errstring (format nil "Account Name: ~A. This Account is Suspended." (slot-value company 'name))))))
  
  (defun com-hhub-policy-restore-account (&optional (params nil))
  
negative.code: 
  
  (defun com-hhub-policy-create-order (&optional (params nil))
    (let* ((company (cdr (assoc "company" params :test 'equal)))
  	 (suspend-flag (slot-value company 'suspend-flag)))
      (cond  ;; Check whether the account is suspended. 
        ((com-hhub-attribute-company-issuspended suspend-flag)
         (error 'hhub-abac-transaction-error :errstring (format nil "Account Name: ~A. This Account is Suspended." (slot-value company 'name))))
        ((< (parse-time-string (current-time-string)) (parse-time-string (com-hhub-attribute-customer-order-cutoff-time))) T))))
  
  