Posted to tcl by qih at Thu Jan 04 08:38:23 GMT 2018view raw
- # Code after execution, one loop
- qih proj003 $ tclsh medtrack.tcl
- Welcome, today's date is Thursday, 01/04/2018
- -------------------------------------------------------
- Are you adding a new medication? (Yes or No) Yes
- Please answer the following questions:
- --------------------------------------
- What is the name of this medicine? >> Yuckycloxindine
- How many do you have currently? >> 7
- How many doses per day, do you need to take? >> 2
- How many tablets per dose, do you need to take? >> 2
- How many tablets have you been issued? >> 30
- How many days lead time do you want for reissuing? >> 5
- The current supply of this medication is 9 days.
- You will need more of this medication in 4 days.
- Which will be Monday, 01/08/2018