Following is a demo of the bone.pl program.
?- createNewPatient. Enter the name of the patient |: bob. bob is now a patient. How old are they? |: 20. true. ?- diagnose(bob). Refer the patient to an orthopedic oncologist and perform a biopsy. What were the results of the biopsy? |: chondrosarcoma. What was the grade of the cancer?|: low_grade_and_intracompartmental. true . ?- treatment(bob). apply one of the following treatment methods : 1.)Intralesional excision + surgical adjuvant 2.) Wide excision, if resectable 3.)Consider RT is unresectable Afterwards, the patient should undergo a physical examination as well as radiographs of the primary site as clinically indicated every 6-12 months for 2 years, then yearly as appropriate. Do this with the chest as well. If a recurrence occurs perform a wide excision is reectable or RT if unresectable. After performing treatment on the patient, what were the results? |: positive_margins. Consider RT or consider re-resection to achieve negative surgical margins true . ?- createNewPatient. Enter the name of the patient |: steve. steve is now a patient. How old are they? |: 35. true. ?- diagnose(steve). Refer the patient to an orthopedic oncologist and perform a biopsy. What were the results of the biopsy? |: chondrosarcoma. What was the grade of the cancer?|: high_grade. true . ?- treatment(steve). Perform a wide excision if resectable or consider RT if borderline resectable or unrectable. For surveillance: Perform a physical exam, perform radiographs of primary site and/or cross-sectional imaging MRI or CT as clinically indicated, chest imaging every 3-6 months (may include a CT at least every 6 months for 5 years, then yearly for a minimum of 10 years), reasses function at every follow-up visit. If a recurrence occured, what type of occurence was it?local. Perform a wide excision if resectable or RT if unresectable. Did the tumor display positive or negative margins? |: positive_margins. Consider RT or consider re-resection to achieve negative surgical margins true . ?- reviseSymptom(steve, positive_margins). What is the revised symptom? |: negative_margins. true. ?- observe(steve). Continue to observe the patient. true.