Index: vhDeploy/DeployResPiItems.cls.xml
===================================================================
diff -u
--- vhDeploy/DeployResPiItems.cls.xml	(revision 0)
+++ vhDeploy/DeployResPiItems.cls.xml	(revision 36635)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.DeployResPiItems">
+<Abstract>1</Abstract>
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="SubType">
+<Type>%String</Type>
+</Parameter>
+
+<Parameter name="Type">
+<Type>%String</Type>
+</Parameter>
+
+<Method name="ExecCode">
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+    #dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+    set Service = ##class(BL.Legacy.Res.PiItemService).%New(..#Type,..#SubType)
+    
+    do ..UpdateItems(Service)
+    
+    if ##class(vhConsistency.ConsistencyCheck).VoerUit(1,0,"vhConsistency.Checks.Res.ControleerVolgNummers") {
+        do OperatieScope.Gelukt()
+    } else {
+        do OperatieScope.Gefaald()
+        set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Res.PI.Items update failed : "_..#Type_" : "_..#SubType)
+        do ##class(TECH.ExceptionHandler).Throw(Exception)
+    }
+]]></Implementation>
+</Method>
+
+<Method name="UpdateItems">
+<Abstract>1</Abstract>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Service:BL.Legacy.Res.PiItemService</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>