dcUtil ; 
 ; ----------------------------------------------------------------------------
 ; #
 ; #  DivConq
 ; #
 ; #  http://divconq.com/
 ; #
 ; #  Copyright:
 ; #    Copyright 2012 eTimeline, LLC. All rights reserved.
 ; #
 ; #  License:
 ; #    See the dcLicense.txt file in the project's top-level directory for details.
 ; #
 ; #  Authors:
 ; #    * Andy White
 ; #
 ; ----------------------------------------------------------------------------
 ;
gd n input
 w "Global Display Utility"
prompt w !,"Name: "
 r input  quit:input=""
 d show(input)
 g prompt
 ;
show(gname) n qv,ev
 i gname'["(" s qv=gname,ev=gname
 e  d
 . i $e(gname,$l(gname))=")" s qv=gname,ev=$e(gname,1,$l(gname)-1)
 . e  s ev=gname,qv=gname_")"
 ;
 i ($d(@qv)=1)!($d(@qv)=11) w !,qv,"=",@qv
 f  s qv=$q(@qv) q:$e(qv,1,$l(ev))'=ev  w !,qv,"=",@qv
 ;
 quit
 ;
 ;
 ;
compile n input,%ZR,currRou
 w "Compile Names (*): "
 r input
 ;
 i input="" s input="*"
 ;
 d SILENT^%RSEL(input)
 ;
 f  s currRou=$o(%ZR(currRou)) q:currRou=""  d  
 . i currRou="dcCompile" q  ; do not compile self
 . i %ZR(currRou)["/r/" d
 . . w !,"Compiling: "_currRou
 . . zl currRou
 ;
 w !
 ;
 quit 
 ;
 ;

