Index: Tools/Install.cls.xml
===================================================================
diff -u -r721 -r862
--- Tools/Install.cls.xml	(.../Install.cls.xml)	(revision 721)
+++ Tools/Install.cls.xml	(.../Install.cls.xml)	(revision 862)
@@ -53,7 +53,7 @@
 		
 		set ^cLOG($$$NSpace,"SYSTEM","MASTER")=$$$Server
 		
-		do ..CreateICTPinningNodes()
+		do ..StelInGebruikerEigenschappen()
 		
 		do ..FixMenuItems()
 	}
@@ -79,8 +79,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="StelInGebruikerEigenschappen">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+    
+	Do ..CreateICTPinningNodes()
+    #dim Key As %String = ""
+    for { set Key = $Order(^cLOG($$$Server,"PIN",Key)) Quit:Key=""
+    	#dim Naam As %String = ^cLOG($$$Server,"PIN",Key)
+    	Do ..CreatecQSYS(Naam,Key)
+    	Do ..CreatePAPTYP(Naam)
+    }
+]]></Implementation>
+</Method>
+
 <Method name="CreateICTPinningNodes">
 <ClassMethod>1</ClassMethod>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Kill ^cLOG($$$Server,"PIN")
 	set ^cLOG($$$Server,"PIN",1015)="PV"
@@ -93,18 +108,32 @@
     set ^cLOG($$$Server,"PIN",1204)="FMA"
     set ^cLOG($$$Server,"PIN",1026)="PBO"
     set ^cLOG($$$Server,"PIN",1042)="MVI"
-    
-    
-    set Key = ""
-    for { set Key = $Order(^cLOG($$$Server,"PIN",Key)) Quit:Key=""
-    	set Naam = ^cLOG($$$Server,"PIN",Key)
-    	set ^cQSYS(0,"FIXED","NBN",Naam_"-W7")=Key
-    	set ^cQSYS(0,"FIXED","NBN",Naam_"-W7.vanhoecke.be")=Key
-    } 
-    
-	quit
 ]]></Implementation>
 </Method>
+
+<Method name="CreatecQSYS">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Naam:%String,Key:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	set ^cQSYS(0,"FIXED","NBN",Naam_"-W7")=Key
+    set ^cQSYS(0,"FIXED","NBN",Naam_"-W7.vanhoecke.be")=Key
+]]></Implementation>
+</Method>
+
+<Method name="CreatePAPTYP">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Naam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ^cLOG(Naam_"-W7","PAP","BZ","B")="Breed\66\132\0\5\0"
+	Set ^cLOG(Naam_"-W7","PAP","BZ","E1")="Etiket 9x40\9\40\1\1\0"
+	Set ^cLOG(Naam_"-W7","PAP","BZ","L")="Logo smal\72\80\0\5\0"
+	Set ^cLOG(Naam_"-W7","PAP","BZ","S")="Smal\63\80\0\0\0"
+	Set ^cLOG(Naam_"-W7","PAP","BZ","SD")="Spoordokumenten\36\80\0\0\0"
+	Set ^cLOG(Naam_"-W7","PAP","BZ","SE")="Spooretiketten\18\80\0\0\0"
+]]></Implementation>
+</Method>
 </Class>