PUBLIC PhoneBMP NoPhoneBMP PhoneBMP = "c:\divert\redphone.bmp" NoPhoneBMP = "c:\divert\nophone.bmp" IF EOF() GO TOP ENDIF CREATE CURSOR hospstatus (redphone G(4), phonecall C(9), typecall C(20), hname C(30), ; newstatus C(20), olddate D(8), elapstime C(5)) rec_cnt=0 SELECT hospstatus SET SAFETY OFF ZAP SET SAFETY ON SELECT hospital SCAN SELECT hospstatus APPEND BLANK IF ALLT(hospital.phonepic) = "Y" THISFORM.Slist.Picture(1,rec_cnt+1) = m.PhoneBMP * APPEND GENERAL hospstatus.redphone FROM (PhoneBMP) ELSE THISFORM.Slist.Picture(1,rec_cnt+1) = m.NoPhoneBMP * APPEND GENERAL hospstatus.redphone FROM (NoPhoneBMP) ENDIF REPLACE hospstatus.phonecall WITH hospital.phonecall REPLACE hospstatus.typecall WITH hospital.typecall REPLACE hospstatus.hname WITH hospital.hname REPLACE hospstatus.newstatus WITH hospital.newstatus REPLACE hospstatus.olddate WITH hospital.olddate REPLACE hospstatus.elapstime WITH hospital.elapstime rec_cnt=rec_cnt+1 SELECT hospital ENDSCAN IF rec_cnt=0 SELECT hospstatus APPEND BLANK WAIT "NO RECORDS FOUND!!!" WINDOW ENDIF SELECT hospital GO TOP