(define-attributes (policy)
  (policy-type-code code-select :category 3 :label "Policy Type")
  (agent-id ajax-fkey :label "Agent")
  (company-id lol::ajax-foreign-key :label "Company")
  (insured-id lol::ajax-foreign-key :label "Insured")
  (policy-number t :label "Policy Number")
  (effective-date t :label "Effective ")
  (expiry-date t :label "Expires")
  (deductible t :label "Deductible $")
  (:viewer maxwell-viewer 
	   :attributes (policy-number 
			effective-date 
			expiry-date 
			policy-type-code 
			agent-id
			company-id
			deductable) 
	   :global-properties (:editablep nil)
	   :editablep nil)
  (:editor maxwell-object-presentation 
	   :attributes (policy-number 
			effective-date 
			expiry-date 
			policy-type-code 
			agent-id
			company-id
			deductable) 
	   :global-properties (:editablep t)
	   :editablep t)
  (:one-line mewa:mewa-one-line-presentation 
	     :attributes (policy-number effective-date expiry-date policy-type-code) 
	     :global-properties (:editablep nil)
	     :editablep nil))