!test.bas           3-17-94       J. David Fields



!other variables used by program
map1 sel,f,6                          !selection from main menu
map1 cur,s,1,N                        !selection from yes/no default = N
map1 serv(6),s,12                     !services
map1 stbor(10),s,17                   !board codes in VSI system
map1 stpatient,s,7                    !patient #
map1 stpname,s,15                     !patient name
map1 stclient,s,7                     !client #
map1 stcname,s,15                     !client name
map1 stdoctor,s,15                    !doctor on case
map1 ststudent,s,15                   !student on case
map1 stproblem,s,20                   !problem with patient
map1 stadate,s,6                      !admission date in hospital
map1 stdeposit,s,4                    !amount of deposit
map1 stboard,s,2                      !squno # of board (plno = 1)
map1 stservice,s,1                    !service patient in on
map1 today,s,45                       !today's date
map1 screen'image,s,1000              !screen saved in memory


stbor(1) = "Hosp & Nursing " + chr(10)
stbor(2) = "Large Dog      " + chr(10)
stbor(3) = "Hosp, Cat      " + chr(10)
stbor(4) = "Hosp, Avian    " + chr(10)
stbor(5) = "Hosp, Reptile  " + chr(10)
stbor(6) = "Hosp, Rodent   " + chr(10)
stbor(7) = "Hosp, Primate  " + chr(10)
stbor(8) = "Blood Donor    " + chr(10)
stbor(9) = "Hosp, Isolation" + chr(10)
stbor(10) = "None           " + chr(10)


serv(1) = "Med I     " + chr(10)
serv(2) = "Med II    " + chr(10)
serv(3) = "Surgery I " + chr(10)
serv(4) = "Surgery II" + chr(10)
serv(5) = "ICU       " + chr(10)
serv(6) = "Exotics   " + chr(10)