vhEMAIL4 ;EMail [ 01/20/2000  8:46 PM ]
 ;
EMAILIN 
 New R
 Set $ZT="ERROR^vhEMAIL"
 Job BEGIN^EMAILIN($ZU(5))["ADMIN1"]
 Quit
 ;