1 CALL  init_routine(function_code,routine,error_code,token)