;;;This is the GT source code for two recognition agents:
;;;call-pediatrician--fever, and common-viral-infection.  The former
;;;depends on the later for its decision.  Together they constitute a
;;;small knowledge structure for deciding if the pediatrician should
;;;be called.  An intelligent database named PATREC for the patient
;;;records is also defined.

(IN-PACKAGE 'toolset)

(DEFINE-RECOGNITION-AGENT CALL-PEDIATRICIAN-FEVER
  DISCRETE-PATTERN-RECOGNITION-AGENT
  (AUTHOR= "John R. Josephson")
  (CREATION-DATE= "24 Jan 1988")
  (LAST-MODIFICATION-DATE= "24 Jan 1988")
  (ASSOCIATED-CONCEPTS= FEVER CALL-DOCTOR)
  (FEATURES= (ASK PATREC "CHILD ?" USUAL-2-VAL)
	 (ASK PATREC "FEVER TODAY ?" USUAL-3-VAL )
	 (JUDGE COMMON-VIRAL-INFECTION USUAL-9-VAL))
  (PATTERN= T YES (LE UNLIKELY))
  (RATIONALE= "Call the doctor if there is fever, and if it is
	 unlikely that the child has a common viral infection.")
  (OUTPUT-CONFIDENCE-VOCABULARY= USUAL-3-VAL)
  (MATCH-CONFIDENCE=  YES)
  (NO-MATCH-CONFIDENCE= NEUTRAL)
  (EXPERT= "Jack G. Shiller, M.D.")
  (CITATIONS= "Shiller, J.D. Childhood Illness: A Common Sense
	      Approach, Stein and Day, New York, 1972, p.37") )


(DEFINE-RECOGNITION-AGENT COMMON-VIRAL-INFECTION
  MATCH-1-RECOGNITION-AGENT
  (AUTHOR= "John R. Josephson")
  (CREATION-DATE= "24 Jan 1988")
  (LAST-MODIFICATION-DATE= "24 Jan 1988")
  (ASSOCIATED-CONCEPTS= VIRAL-INFECTION COMMON-INFECTION)
  (OUTPUT-CONFIDENCE-VOCABULARY= USUAL-9-VAL)
  (FEATURES= (ASK PATREC "ACHY-EYES THIS-ILLNESS ?" USUAL-3-VAL )
	     (ASK PATREC "FEVER THIS-ILLNESS ?" USUAL-3-VAL )
	     (ASK PATREC "ACHINESS THIS-ILLNESS ?" USUAL-3-VAL )
	     (ASK PATREC "RUNNY-NOSE THIS-ILLNESS ?" USUAL-3-VAL )
	     (ASK PATREC "SCRATCHY-THROAT THIS-ILLNESS ?" USUAL-3-VAL )
	     (ASK PATREC "SLIGHTLY-UPSET-STOMACH  THIS-ILLNESS ?" USUAL-3-VAL )
	     (ASK PATREC "TIREDNESS THIS-ILLNESS ?" USUAL-3-VAL )
	     (ASK PATREC "MALAISE THIS-ILLNESS ?" USUAL-3-VAL )
	     (ASK PATREC "HEADACHE THIS-ILLNESS ?" USUAL-3-VAL ))
  (PATTERNS= ((YES ? ? ? ? ? ? ? ?) => LIKELY)
	     ((? YES YES YES YES YES YES YES YES ) 5 => VERY-LIKELY)
	     ((? YES YES YES YES YES YES YES YES ) 4 => LIKELY)
	     ((? YES ?   YES  ?   ?   ?   ?   ?  ) => LIKELY)
	     ((? YES YES YES YES YES YES YES YES ) 3 => SOMEWHAT-LIKELY)
	     ((? YES YES YES YES YES YES YES YES ) 2 => NEUTRAL))
  (NO-MATCH-CONFIDENCE= UNLIKELY)
  (RATIONALE= "Achy eyes almost certainly means flu or grippe.
	      Otherwise confidence depends on how many of the symptoms
	      are present.  Fever and runny nose alone are sufficient
	      to make the diagnosis likely.")
  (EXPERT= "Jack G. Shiller, M.D.")
  (CITATIONS= "Shiller, J.D. Childhood Illness: A Common Sense
	      Approach, Stein and Day, New York, 1972, p.37") )

(DEFINE-IDB PATREC STUB-IDB
  (AUTHOR= "John R. Josephson")
  (CREATION-DATE= "24 Jan 1988")
  (LAST-MODIFICATION-DATE= "24 Jan 1988") )