/*
   endotrac

   A Numerator program to calculate an endotracheal tube size.

   This program uses an algorithm found in the program

                                   CODEDOSE

                             E. Alan Miller, RPH
                          Catawba Memorial Hospital
                            Department of Pharmacy
                           810 Fairgrove Church Rd.
                               Hickory, NC  28602
      
*/

new
" ** Calculate ET tube usage **\n"
"1)  Enter age in months\n"
"2)  Enter age in years\n"
"\n"
"    Enter 1 or 2\n"
get choice
if (choice == 1)
   "Enter age in months "
   get age
   age month
   age = year
endif

if (choice == 2)
   "Enter age in years "
   get age
endif


if (age < .125)
   et = 3
endif

if (age > .125 && age < .25)
   et = 3.5
endif

if (age >= .25 && age <= 1.5)
   et = 4
endif

if (age > 1.5 && age <= 2)
   et = 4.5
endif

if (age > 2)
   et = (age + 16) / 4
endif

if (et > 4.5 && et <= 4.75)
   et = 4.5
endif

if (et > 4.75 && et <= 5.25)
   et = 5
endif

if (et > 5.25 && et < 5.75)
   et = 5.5
endif

if (et > 5.75 && et <= 6.25)
   et = 6
endif

if (et > 6.25 && et <= 6.75)
   et = 6.5
endif

if (et > 6.75 && et <= 7.25)
   et = 7
endif

if (et > 7.25 && et <= 7.75)
   et = 7.5
endif

if (et > 7.75 && et <= 8.25)
   et = 8
endif

if (et > 8.25 && et <= 8.75)
   et = 8.5
endif

if (et > 8.75)
   et = 9
endif

"Use size "; et:; " endotracheal tube\n"


