;; | ---------------------------------------------------------------------------
;; | BL_IsNested?
;; | ---------------------------------------------------------------------------
;; | Function : Check whether the block is nested or not (i.e if it contains
;; |            atleast one INSERT object within its definition)
;; | Argument : 'BlkName' - Block Name
;; | Returns  : T if the block is nested, nil otherwise
;; | Updated  : April 11, 2000
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun BL_IsNested?( BlkName / BlkDefLst Nested ELst )

(setq
	Nested nil
	BlkDefLst (BL_GetBlkDef BlkName)
)
(if BlkDefLst
(progn
	(setq ELst (mapcar '(lambda (x) (cdr (assoc 0 x))) BlkDefLst))
	(if (and ELst (member "INSERT" ELst))
		(setq Nested T)
	)
))
Nested
)