#Include vhLib.Macro
 
 // ==========================================================================================================================================
 // Name    : ParseStatus
 // Author  : TOM ROMBAUT
 // Function: Opdrachten zoals %Save & %Delete geven een resultaat terug van het type %Status. Deze status is echter 'gecodeerd' en kan
 //           via deze functie leesbaar gemaakt worden naar de gebruiker toe
 // ==========================================================================================================================================
 
#Include %occStatus
 
ParseStatus(Status,IgnoreFirstLine)
	 Quit:('('Status)) ""  //sluit wanneer geen error!
	 Set IgnoreFirstLine=$G(IgnoreFirstLine)
	 New ParsedStatus
	 Set ParsedStatus=""
	 New Error,Loop
	 Do DecomposeStatus^%apiOBJ(Status,.Error,"") 
	 New Start
	 Set Start=$S(IgnoreFirstLine && (Error>1):2,1:1)
	 For Loop=Start:1:Error Do
	 . Set ParsedStatus=ParsedStatus_$S(ParsedStatus="":"",1:$C(13,10))_Error(Loop)
	 Quit ParsedStatus
 
 
 // ==========================================================================================================================================
 // Name    : GetJobInfo
 // Author  : Wim Vermeulen
 // Function: Geeft informatie over de huidige job.
 //           Handig bij het versturen van bvb. mails met een error-melding
 // ==========================================================================================================================================
GetJobInfo(blnMultiLine,Indent)
	Set Indent=$G(Indent),blnMultiLine=$G(blnMultiLine,1)
 	Set Txt=Indent_"Device: "_$I_"  Job: "_$J
	Set Txt=Txt_$S(blnMultiLine:$$$CRLF_Indent, 1:"  ")_"Server: "_$$$Server_"  NameSpace: "_$$$NSpace_$S(blnMultiLine:$$$CRLF, 1:"")
	Quit Txt