TAGWRITE(DevObj,Tag,Val,Param1,Param2,Param3,Param4,Param5)  ; Compiled January 30, 2001 08:46:28
 Do BEGINTAG(DevObj,Tag,$G(Param1),$G(Param2),$G(Param3),$G(Param4),$G(Param5))
 Do WRITE(DevObj,Val)
 Do ENDTAG(DevObj,Tag)
 Quit
TAGONLY(DevObj,Tag,Param1,Param2,Param3,Param4,Param5)
 New String,I
 Set String="<"_Tag
 For I=1:1:5 Set String=String_$S($L($G(@("Param"_I))):" "_@("Param"_I),1:"")
 Set String=String_" />"
 Do WRITE(DevObj,String)
 Quit
BEGINTAG(DevObj,Tag,Param1,Param2,Param3,Param4,Param5)
 New String,I
 Set String="<"_Tag
 For I=1:1:5 Set String=String_$S($L($G(@("Param"_I))):" "_@("Param"_I),1:"")
 Set String=String_">"
 Do WRITE(DevObj,String)
 Set xmlLevel=$G(xmlLevel)+1
 Quit
ENDTAG(DevObj,Tag,WriteLn)
 Set xmlLevel=$G(xmlLevel)-1
 Do WRITE(DevObj,"</"_Tag_">")
 Do:$G(WriteLn) WRITELN(DevObj)
 Quit
COMMENT(DevObj,Tekst,WriteLn)
 Do WRITE(DevObj,"<!--"_Tekst_"-->")
 Do:$G(WriteLn) WRITELN(DevObj)
 Quit
 
 
WRITELN(DevObj)
 Do WRITE(DevObj,$C(13,10))
 Quit
 
WRITE(DevObj,String)
 ;If 'DevObj Write $J("",$G(xmlLevel)*2),String,! Quit
 If 'DevObj Write String Quit
 Do DevObj.Write(String)    
 Quit
 
PARAMFILL(Param,Data)
 Quit:Data="" ""
 Quit Param_"="""_Data_""""