do(input)
 n cik,i,data,gloName,gloRef,inputr,len,nb,nsp,ok,subs,x,head
 s tim= 15 ,flag= 0 
 s inputr=$re(input)
 s len=$re($p(inputr," ", 1 ))
 Read head:tim
 s rtn=$p(head,"~", 1 )     ;lab^routine name
 s nprm=$p(head,"~", 2 )    ;nr.parameters
 s lendata=$p(head,"~", 3 ) ;len all Data
 s par1=$p(head,"~", 4 )    ;len par1
 s par2=$p(head,"~", 5 )    ;len par2
 s par3=$p(head,"~", 6 )    ;len par3
 ;
 ;Passing parameters lab^routine(var1,var2,... var10)
 s gtmbuild("record")=rtn_"("
 f i= 2 : 2 :nprm* 2  do
 . s gtmbuild("Input",i)=$$ReadRec(tim)
 . s gtmbuild("record")=gtmbuild("record")_""""_gtmbuild("Input",i)_""""_","
 s $e(gtmbuild("record"),$l(gtmbuild("record")))=")"
 s $zt=$$zt()
 x "New gtmbuild Do"_gtmbuild("record")
 s $zt=""
 ;
 ;Passing parameters lab^routine(.var1,.var2, ... .var10) return records or Array !!!
 s gtmbuild("record")=rtn_"("
 f i= 1 : 2 :nprm* 2  s gtmbuild("record")=gtmbuild("record")_(".Output"_i_",")
 s $e(gtmbuild("record"),$l(gtmbuild("record")))=")"
 s $zt=$$zt()
 x "New gtmbuild Do"_gtmbuild("record")
 f i= 1 : 2 :nprm* 2  Do
 . if $d(@("Output"_i))\ 10 = 0  w @("Output"_i),$c( 13 , 10 )
 . else  f cik= 0 : 1  s array=$q(@("Output"_i_"("_cik_")")) q:array=""  w @array,$c( 13 , 10 )
 s $zt=""
 Quit
 ;

ReadRec(tim)
  N len,read
  s $zt=$$zt()
  R read:tim e  zt "timer"
  i read["""" s read=$$replaceAll(read,"""","""""") 
  Q read
 ;

do(input)
 n cik,i,inputr,head,flag,tim
 s tim= 15 ,flag= 0 
 s inputr=$re(input)
 s len=$re($p(inputr," ", 1 ))
 Read head:tim
 s rtn=$p(head,"~", 1 )     ;lab^routine name
 s nprm=$p(head,"~", 2 )    ;nr.parameters
 s lendata=$p(head,"~", 3 ) ;len all Data
 s par1=$p(head,"~", 4 )    ;len par1
 s par2=$p(head,"~", 5 )    ;len par2
 s par3=$p(head,"~", 6 )    ;len par3
 ;Passing parameters lab^routine(.var1,.var2, ... .var10) return records or Array !!!
 s gtmbuild("record")=rtn_"("
 f i= 1 : 2 :nprm* 2  do
 . s gtmbuild("Output",i)=$$ReadRec()
 . s gtmbuild("record")=gtmbuild("record")_(".Output"_i_","),passing="Output"_i S @passing=gtmbuild("Output",i)
 s $e(gtmbuild("record"),$l(gtmbuild("record")))=")"
 s $zt=$$zt()
 x "New gtmbuild Do "_gtmbuild("record")
 ;d @gtmbuild("record")
 f i= 1 : 2 :nprm* 2  Do
 . if $d(@("Output"_i))\ 10 = 0  w @("Output"_i),$c( 13 , 10 )
 . else  f cik= 0 : 1  s array=$q(@("Output"_i_"("_cik_")")) q:array=""  w @array,$c( 13 , 10 )
 s $zt=""
 Quit
 ;
ReadRec()
  N len,read
  s $zt=$$zt()
  R read ;:tim e  zt "timer"
  i read["""" s read=$$replaceAll(read,"""","""""") 
  Q read
 ;