Redefining a block when inserted via lisp

Currently our company standard layers can be inserted as a block. This works great allowing everyone to see whats what. I made two .dws files with the layer translator that switch all existing layers to new and all new to existing. The only issues is once the layers are translated, I loose either the New layers or the Existing layers. If I reinsert our company standard layers block, it isn't redefined and the new or existing layers still do not exist. I basically need to redefine the block as it is reinserted into my drawing.

(defun c:SAA () 
(setq new (getpoint "\n SPECIFY INSERTION POINT:"))
(if (findfile "J:/SAA CADD Standards/LAYERS/LAYERS.dwg") 
(command "_insert" "J:/SAA CADD Standards/LAYERS/LAYERS.DWG" new "1" "" "0" "") 
); end if 
); end function 

snip.. snip

(if (tblsearch "block" blkname)
   (progn
     (command "._-insert" (strcat blkname [color="blue"][b]"="[/b][/color]) (command))
     (princ (strcat "\nBlock " (strcase blkname) " redefined."))))