as.org

extract-src-content

(defun extract-src-content (name)
  (save-excursion
    (org-babel-goto-named-src-block name)
    (org-element-property :value (org-element-at-point))))

execute-as-block

(defun execute-as-block (name &rest args)
  (let* ((tpl (extract-src-content name))
         (src (apply 'format (cons tpl args))))
    (do-applescript src)))