Land Desktop - Label Station/Offset & TIN Elevation

[BlackBox]

Hi,

I've been successful in combining some LDD commands into one command sequence, but this one (I believe) requires one variable be passed to both component routines....

For example:
(Hypothetical scenario - this code does not work)

;;; Label Station/Offset & TIN Elevation (in Plan View)
(defun c:SOE (/ pt1 sta1 elev1 lbl1 )
  (setq pt1 (getpoint))
  (ad_mnl)
  (zz_sdsk '(f:adcmds 21))     ; List station/offset
  ;; Get the output from LDD, and store
  (setq sta1 (c:LDD))
  (dt_mnl)
  (zz_sdsk '(dt_elevid))    ; List surface elevation
;; Get the output from LDD, and store
  (setq elev1 (c:LDD))
  (setq lbl1 (strcat sta1 "//p" elev1))
  ;|Insert leader and text into drawing here|;
  (princ)) ;_end defun

I pulled the LDD functionality from the command macros found in the CUI. I am unable to find the source LISP in the "land" directory.
(Platform: AutoCAD 2009 Land Desktop Companion)

I couldn't find anything in a quick AUGI search. If there is already material documented, I'd be happy to work through myself first (if you can point me the right way), I just couldn't find anything like this.

Your help is greatly appreciated!