anchor.diff:  
   
   (defun com-hhub-policy-create-order (&optional (params nil))
  -  (let* ((company (cdr (assoc "company" params :test 'equal))))
  +  (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 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))))
         ((< (parse-time-string (current-time-string)) (parse-time-string (com-hhub-attribute-customer-order-cutoff-time))) T))))
   
  
positive.code: 
  (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))))
      (cond
        ((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))))
        ((<  (cdr (assoc "prdcount" params :test 'equal)) (com-hhub-attribute-vendor-bulk-product-count)) T))))
  
  
negative.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defun com-hhub-policy-vendor-order-setfulfilled (&optional (params nil))
    (let* ((company (cdr (assoc "company" params :test 'equal)))
  	 (suspend-flag (slot-value company 'suspend-flag)))
      (cond
          ((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))))
  	  (() T))))
  
  