// Testen van de BL.PPS.OL.Inpak
 #include %occInclude
 #Include BL.Sys.Proxy
 
WSTestGetBoxDataViaID
 kill
 Write "WSTestGetBoxDataViaID", !
 Set ws = ##class(WS.Prod.OptiBox.OptiServer).%New()
 Set st = ws.GetBoxDataViaID("test",,,.px)
 Write "Status GetBoxDataViaID", st, !
 kill px, ws, st 
 quit