#Include %occStatus
 
Help
 Write "---=[ERROR TOOLS]=---",!!
 Write "%Status parsen tot een leesbare string:",!
 Write "  Set ErrStr=$$ParseStatus^TRErrorTools(Status)",!
 
 Quit
 
ParseStatus(Status)
 Quit:('$$$ISERR(Status))  //sluit wanneer geen error!
 New ParsedStatus
 Set ParsedStatus=""
 
 New Error,Loop
 Do DecomposeStatus^%apiOBJ(Status,.Error,"-d") 
 For Loop=1:1:Error Do
 . Set ParsedStatus=ParsedStatus_$C(13,10)_Error(Loop)
 
 Quit ParsedStatus