pl-ail-files/heart.ail

   1 % Subset of the knowledge base put together by a cardiologist
   2 % of AMC Amsterdam for the 112 alarm service.
   3 % Idea was that centralists (people answering the phone) should
   4 % be given assistance in posing the right questions to people
   5 % calling 112 for cardiac problems. In some cases, when there
   6 % was an emergency, an ambulance needs to be send, where in
   7 % others it would save money to send the person to general care.
   8 % So the essential question is: is there an emergency situation
   9 % or not.
  10
  11 askable age(Patient) = V.
  12 askable duration(Patient,heart,pain) = V.
  13 askable diabetic(Patient).
  14 askable smoking(Patient).
  15 askable pain(Patient).
  16 askable similar_symptoms(Patient,angina_pectoris).
  17 askable similar_symptoms(Patient,myocardial_infarction).
  18 askable pattern(Patient,pain,retrosternal).
  19 askable pattern(Patient,pain,left_lateral_thoracic).
  20 askable pattern(Patient,pain,right_lateral_thoracic).
  21 askable provocation(Patient,pain,emotions).
  22 askable provocation(Patient,pain,food_consumption).
  23 askable provocation(Patient,pain,physical_exertion).
  24 askable provocation(Patient,pain,warmth_to_cold_change).
  25
  26 sclerotic_arteries(Patient) <-
  27  age(Patient) = A &
  28  A > 50.
  29
  30 sclerotic_arteries(Patient) <-
  31   diabetic(Patient);
  32   smoking(Patient).
  33
  34 known_disease(Patient,angina_pectoris) <-
  35   pain(Patient) &
  36   similar_symptoms(Patient,angina_pectoris).
  37
  38 known_disease(Patient,myocardial_infarction) <-
  39   pain(Patient) &
  40   similar_symptoms(Patient,myocardial_infarction).
  41
  42 state(Patient,atherosclerosis) <-
  43   sclerotic_arteries(Patient);
  44   known_disease(Patient,myocardial_infarction);
  45   known_disease(Patient,angina_pectoris).
  46
  47 ischaemia(Patient,heart) <-
  48   pain(Patient) &
  49   pattern(Patient,pain,retrosternal).
  50
  51 ischaemia(Patient,heart) <-
  52   pain(Patient) &
  53   pattern(Patient,pain,left_lateral_thoracic).
  54
  55 ischaemia(Patient,heart) <-
  56   pain(Patient) &
  57   pattern(Patient,pain,right_lateral_thoracic).
  58
  59 state(Patient,coronary_vasodilatation) <-
  60   pain(Patient) &
  61   present_treatment(Patient,anti_anginal) &
  62   cardiac_pain(Patient,gone).
  63
  64 pain(Patient,clear_provocation) <-
  65   pain(Patient) &
  66   provocation(Patient,pain,emotion).
  67
  68 pain(Patient,clear_provocation) <-
  69   pain(Patient) &
  70    provocation(Patient,pain,food_consumption).
  71
  72 pain(Patient,clear_provocation) <-
  73   pain(Patient) &
  74   provocation(Patient,pain,physical_exertion).
  75
  76 pain(Patient,clear_provocation) <-
  77   pain(Patient) &
  78   provocation(Patient,pain,warmth_to_cold_change).
  79
  80 o2_demand(Patient,heart,increased) <-
  81   pain(Patient,clear_provocation).
  82
  83 o2_demand(Patient,heart,normal) <-
  84   ~pain(Patient,clear_provocation).
  85
  86 ischaemia(Patient,heart) <-
  87   pain(Patient) &
  88   state(Patient,atherosclerosis).
  89
  90 state(Patient,heart,necrosis) <-
  91   state(Patient,ischaemia,irreversible).
  92
  93 o2_supply(Patient,heart,decreased) <-
  94   ischaemia(Patient,heart) &
  95   o2_demand(Patient,heart,normal).
  96
  97 state(Patient,ischaemia,irreversible) <-
  98   ischaemia(Patient,heart) &
  99   duration(Patient,heart,pain) = D &
 100   D > 30 &
 101   ~state(Patient,coronary_vasodilatation).
 102
 103 state(Patient,ischaemia,reversible) <-
 104   ischaemia(Patient,heart) &
 105   duration(Patient,heart,pain) = D &
 106   D < 30.
 107
 108 state(Patient,ischaemia,reversible) <-
 109   ischaemia(Patient,heart) &
 110   state(Patient,coronary_vasodilatation).
 111
 112 disorder(Patient,myocardial_infarction) <-
 113   state(Patient,heart,necrosis) &
 114   state(Patient,atherosclerosis).
 115
 116 disorder(Patient,unstable_angina_pectoris) <-
 117   o2_demand(Patient,heart,normal) &
 118   state(Patient,ischaemia,irreversible) &
 119   state(Patient,atherosclerosis).
 120
 121 disorder(Patient,stable_angina_pectoris) <-
 122   state(Patient,atherosclerosis) &
 123   state(Patient,ischaemia,reversible) &
 124   o2_demand(Patient,heart,increased).
 125
 126 disorder(Patient,variant_angina_pectoris) <-
 127   ~state(Patient,atherosclerosis) &
 128   state(Patient,ischaemia,reversible) &
 129   o2_supply(Patient,heart,decreased).
 130
 131 condition(Patient,emergency) <-
 132   disorder(Patient,unstable_angina_pectoris).
 133
 134 condition(Patient,emergency) <-
 135   disorder(Patient,myocardial_infarction).
 136
 137 condition(Patient,no_emergency) <-
 138   disorder(Patient,stable_angina_pectoris).
 139
 140 condition(Patient,no_emergency) <-
 141   disorder(Patient,variant_angina_pectoris).