;;; -*-Scheme-*-

(ns-base-uri "http://dig.csail.mit.edu/TAMI/sorn-schema")

(ns-prefix ts: "http://dig.csail.mit.edu/TAMI/tami-schema#")

(define (sorn-property predicate range text . class-props)
  (let ((label (nss-label text)))
    (nss-property predicate
		  (apply nss-class range label class-props)
		  label)))

(nss-class :SORN
	   (nss-superclass :Data-flow)
	   (nss-label "System of Records Notice")
	   (sorn-property :sor :SOR
			  "System of Records"
			  (nss-superclass ts:Database)
			  (nss-property :notice :SORN))
	   (sorn-property :authority :Legal-authority
			  "Legal authority for data collection")
	   (sorn-property :routine-use :Routine-use
			  "Routine use of data"
			  (nss-superclass :Data-flow)))

(nss-class :Data-flow
	   (sorn-property :source :Data-source
			  "Source of data")
	   (sorn-property :recipient :Data-recipient
			  "Recipient of data")
	   (sorn-property :category :Data-category
			  "Category of data")
	   (sorn-property :purpose :Authorized-purpose
			  "Authorized purpose for data"))