Posted to tcl by qih at Thu Jan 04 08:38:23 GMT 2018view raw

  1. # Code after execution, one loop
  2.  
  3. qih proj003 $ tclsh medtrack.tcl
  4.  
  5. Welcome, today's date is Thursday, 01/04/2018
  6. -------------------------------------------------------
  7.  
  8. Are you adding a new medication? (Yes or No) Yes
  9.  
  10. Please answer the following questions:
  11. --------------------------------------
  12. What is the name of this medicine? >> Yuckycloxindine
  13. How many do you have currently? >> 7
  14. How many doses per day, do you need to take? >> 2
  15. How many tablets per dose, do you need to take? >> 2
  16. How many tablets have you been issued? >> 30
  17. How many days lead time do you want for reissuing? >> 5
  18.  
  19. The current supply of this medication is 9 days.
  20. You will need more of this medication in 4 days.
  21. Which will be Monday, 01/08/2018
  22.