rtnCODE(name)
 s $ztrap="error"
 s node="" 
 s ext="INT"
 s routine=name_"."_ext
 s options="L" ; load the previously saved routine into the code parameter. 
 s errors=""   ; empty list
 s return=$$ROUTINE^%R(routine, .code, .errors, options)
 f i=0:1 s node=$o(code(node)) q:node=""  d
 . s cont=code(node)
 . s node(i)=cont
 . s %fcgi("o","stdout",i)=node(i)_$c(13,10)
 s %fcgi("o","header","Content-Type")="text/plain" 
 q
 ;;

rlist(mask,zn)
 s $ztrap="error"
 ZNSPACE zn 
 s rtname=""
 i mask="*" d
 . k rtnarr f i=0:1 s rtname=$o(^$ROUTINE(rtname)) q:rtname=""  d
 . . s rtnarr(i)=rtname
 s %fcgi("o","stdout",n)=$$ENCODE^%FCGIJSON("rtnarr")
 s %fcgi("o","header","Content-Type")="application/json"
 q
 ;;

rlist(mask,zn)
 s $ztrap="error"
 ZNSPACE zn 
 s rtname="",n=-1
 s msk=$p(mask,"*",1)
 i (msk="")&(zn'="%SYS") d
 . k rtnarr f i=0:1 s rtname=$o(^$ROUTINE(rtname)) q:rtname=""  d
 . . i rtname'["%" d
 . . . s n=n+1,rtnarr(n)=rtname
 i (msk'="") s lng=$l(msk) d
 . k rtnarr f i=0:1 s rtname=$o(^$ROUTINE(rtname)) q:rtname=""  d
 . . s codextract=$e(rtname,1,lng)
 . . i $e(rtname,1,lng)=msk d
 . . . s n=n+1,rtnarr(n)=rtname
 s %fcgi("o","stdout",n)=$$ENCODE^%FCGIJSON("rtnarr")
 s %fcgi("o","header","Content-Type")="application/json"
 q
 ;;

rtnSAVE(head,code)
 s rtname=$p(head,"~",1),namespace=$p(head,"~",2)
 Znspace namespace
 s code(0)=0
 f j=1:1 s string=$p(code,$c(10),j) q:string=""  d
 . s code(j)=string
 s code(0)=j-1
 s name=rtname
 s ext="INT"
 s routine=name_"."_ext
 s options="CS" ; Compile and Save
 s errors="" ; empty list
 s return = $$ROUTINE^%R(routine,.code,.errors,options)
 s errcode=$$FMTERR^%R(.errors, .code)
 i errcode'="" d
 . s %fcgi("o","stdout",i)=errcode_$c(13,10)
 e  s %fcgi("o","stdout",i)="Compilation result: "_return_$c(13,10)
 s %fcgi("o","header","Content-Type")="text/plain" 
 q
 ;;