module Text.HTML5.MetaData.Schema.MedicalRiskScore where
import Text.HTML5.MetaData.Class
import Text.HTML5.MetaData.Type
import Data.Text
data MedicalRiskScore = MedicalRiskScore { additionalType :: AdditionalType
, description :: Description
, image :: Image
, name :: Name
, url :: Url
, alternateName :: AlternateName
, code :: Code
, guideline :: Guideline
, medicineSystem :: MedicineSystem
, recognizingAuthority :: RecognizingAuthority
, relevantSpecialty :: RelevantSpecialty
, study :: Study
, estimatesRiskOf :: EstimatesRiskOf
, includedRiskFactor :: IncludedRiskFactor
, algorithm :: Algorithm
}
deriving (Show, Read, Eq)
instance MetaData MedicalRiskScore where
_label = const "Medical Risk Score"
_comment_plain = const "A simple system that adds up the number of risk factors to yield a score that is associated with prognosis, e.g. CHAD score, TIMI risk score."
_comment = const "A simple system that adds up the number of risk factors to yield a score that is associated with prognosis, e.g. CHAD score, TIMI risk score."
_url = const "http://schema.org/MedicalRiskScore"