kristiank / gf-midwife Goto Github PK

abstract ClinicalSituation = {

  flags startcat = Statement ;

  cat
    Statement ;
    ClinicalFinding ;
    Person ;

  data
    -- A situation consists of
    Situation : Person -> ClinicalFinding -> Statement ;


    SCT444295003_Father_of_subject_person,
    SCT444301002_Mother_of_subject_person : Person ;

    SCT77176002_Smoker_finding : ClinicalFinding ;

}

concrete ClinicalSituationSno of ClinicalSituation =
  open Prelude in {

  lincat
    Statement       = {s : Str} ;
    ClinicalFinding = {s : Str} ;
    Person          = {s : Str} ;

  lin
    -- A situation consists of
    -- Situation : SubjectRelationshipContext -> AssociatedFinding -> Statement ;
    Situation person clinicalfinding = {s = "243796009 |Situation with explicit context (situation)|"
                                          ++ " : "
                                          ++ "408732007 |Subject relationship context (attribute)|" ++ " = " ++ person.s " , "
                                          ++ "246090004 |Associated finding (attribute)|" ++ " = " ++ clinicalfinding.s
      };

    SCT444295003_Father_of_subject_person = {s = "SCT444295003_Father_of_subject_person"} ;
    SCT444301002_Mother_of_subject_person = {s = "SCT444301002_Mother_of_subject_person"} ;

    SCT77176002_Smoker_finding = {s = "SCT77176002_Smoker_finding"} ;

}