USE c:\data\reference\DIALER IN 0 SHARE
SELECT DIALER
SET ORDER TO lastname
USE c:\data\reference\AGENCY IN 0 SHARE
USE c:\data\reference\HOSPITAL IN 0 SHARE
USE c:\data\reference\DIALRFRM IN 0 SHARE
SELECT DIALRFRM
SET ORDER TO entry_type
DO FORM c:\dialer\dialersrch
DO WHILE PROC <> "QUIT"
IF proc="SEARCH"
DO FORM c:\dialer\DIALERSRCH
ELSE
SEEKID=ALLT(dialer.entry_type)
SELECT dialrfrm
SEEK SEEKID
IF FOUND()
formname=ALLT(dialrfrm.form_name)
*!* save_entry_type=ALLT(dialer.entry_type)
SET DEFAULT to c:\dialer
DO FORM (formname)
ELSE
MESSAGEBOX("Entry Type "+ALLT(dialer.entry_type)+" not found in Dialer Forms database. "+ ;
"Contact supervisor.",0+64, "Master Dialer")
PROC="QUIT"
ENDIF
ENDIF
ENDDO
USE IN dialer
USE IN dialrfrm
USE IN hospital
USE IN agency
RETURN
<\pre>Steve Kramer
Kramer & Kramer Design
"Home of Go Cartoons"
Web Site: www.stephenkramer.com
Would you believe Far Side Lite?
More than 270 original cartoons.