Index: DOM/PM/impl/DataM/PakketService.cls.xml
===================================================================
diff -u -r47325 -r47344
--- DOM/PM/impl/DataM/PakketService.cls.xml	(.../PakketService.cls.xml)	(revision 47325)
+++ DOM/PM/impl/DataM/PakketService.cls.xml	(.../PakketService.cls.xml)	(revision 47344)
@@ -25,26 +25,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwijderPakket">
-<FormalSpec>PakketNummer:%String</FormalSpec>
-<Implementation><![CDATA[
-	if $$$Not($Data(@..#Global("D",PakketNummer))){
-		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan niet bestaand pakket nummer '" _ PakketNummer _ "' niet verwijderen'"))
-	}
-	
-	Set ProductIdIterator = ##class(TECH.ListIterator).%New(..GeefProductIdsVoorPakketNummer(PakketNummer))
-	While ProductIdIterator.HasNext(){
-		Do ..VerwijderPakketOnderdeel(PakketNummer,ProductIdIterator.Next())
-	}
-		
-	#dim KlantNummer as %String = $Piece(@..#Global("D",PakketNummer),"\",1)
-	#dim PakketNaam as %String = $$UPTRIMAN^vhRtn1($Piece(@..#Global("D",PakketNummer),"\",2))
-
-	Kill @..#Global("IK",KlantNummer,PakketNaam)
-	Kill @..#Global("D",PakketNummer)
-]]></Implementation>
-</Method>
-
 <Method name="BestaatViaPakketnaam">
 <FormalSpec>KlantId:%String,Pakketnaam:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -54,31 +34,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefPakketNummersVoorKlantProduct">
-<FormalSpec>KlantId:%String,ProductId:%String</FormalSpec>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[
-	Set Pakketnummers  = ##class(%ListOfDataTypes).%New()
-	#dim KlantNummer = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(KlantId)
-	
-	#dim PakketNummer as %String = ""
-	For  Set PakketNummer = $Order(@..#Global("IP",ProductId,KlantNummer,PakketNummer)) quit:PakketNummer=""  Do
-	. DO Pakketnummers.Insert(PakketNummer)
-	
-	Quit Pakketnummers
-]]></Implementation>
-</Method>
-
-<Method name="GeefOfMaakPakketnummerVoorPakketnaam">
+<Method name="MaakPakket">
 <FormalSpec>KlantId:%String,Pakketnaam:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim KlantNummer = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(KlantId)
 	if ..BestaatViaPakketnaam(KlantId,Pakketnaam){
-		Quit ..GeefPakketNummerViaPakketnaam(KlantNummer,Pakketnaam)
-	} else {
-		quit ..MaakViaPakketnaam(KlantNummer,Pakketnaam)
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Pakket met naam '"_ Pakketnaam _"' bestaat reeds voor KlantId '"_ KlantId _"'."))	
 	}
+	#dim KlantNummer = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(KlantId)
+	
+	#dim PakketNummer as %String = ..GeefNieuwPakketNummer()
+	Set $Piece(@..#Global("D",PakketNummer),"\",1) = KlantNummer
+	Set $Piece(@..#Global("D",PakketNummer),"\",2) = Pakketnaam
+	
+	Set @..#Global("IK",KlantNummer,$$UPTRIMAN^vhRtn1(Pakketnaam)) = PakketNummer
+		
+	Quit PakketNummer
 ]]></Implementation>
 </Method>
 
@@ -92,6 +63,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPakketType">
+<FormalSpec>PakketNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	if $$$Not($Data(@..#Global("D",PakketNummer))){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan type niet geven van onbestaand pakket met nummer '" _ PakketNummer _"'."))
+	}
+	Quit $Piece(@..#Global("D",PakketNummer),"\",3)
+]]></Implementation>
+</Method>
+
 <Method name="ZetPakketOmschrijving">
 <FormalSpec>PakketNummer:%String,Omschrijving:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -102,6 +84,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPakketOmschrijving">
+<FormalSpec>PakketNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	if $$$Not($Data(@..#Global("D",PakketNummer))){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan omschrijving niet geven van onbestaand pakket met nummer '" _ PakketNummer _"'."))
+	}
+	Quit $Piece(@..#Global("D",PakketNummer),"\",4)
+]]></Implementation>
+</Method>
+
 <Method name="ZetPakketNonAktief">
 <FormalSpec>PakketNummer:%String,NonAktief:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -112,6 +105,80 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPakketNonAktief">
+<FormalSpec>PakketNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	if $$$Not($Data(@..#Global("D",PakketNummer))){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan NonAktief niet geven van onbestaand pakket met nummer '" _ PakketNummer _"'."))
+	}
+	Quit $Piece(@..#Global("D",PakketNummer),"\",5)
+]]></Implementation>
+</Method>
+
+<Method name="GeefPakketNummerViaPakketnaam">
+<FormalSpec>KlantId:%String,Pakketnaam:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	if ..BestaatViaPakketnaam(KlantId,Pakketnaam) {
+		#dim KlantNummer = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(KlantId)
+		Quit @..#Global("IK",KlantNummer,$$UPTRIMAN^vhRtn1(Pakketnaam))
+	} else {
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan pakketnummer van pakket met naam '"_ Pakketnaam _"' niet vinden voor KlantId '"_KlantId_"'."))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderPakket">
+<FormalSpec>PakketNummer:%String</FormalSpec>
+<Implementation><![CDATA[
+	if $$$Not($Data(@..#Global("D",PakketNummer))){
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan niet bestaand pakket nummer '" _ PakketNummer _ "' niet verwijderen'"))
+	}
+	
+	Set ProductIdIterator = ##class(TECH.ListIterator).%New(..GeefProductIdsVoorPakketNummer(PakketNummer))
+	While ProductIdIterator.HasNext(){
+		Do ..VerwijderPakketOnderdeel(PakketNummer,ProductIdIterator.Next())
+	}
+		
+	#dim KlantNummer as %String = $Piece(@..#Global("D",PakketNummer),"\",1)
+	#dim PakketNaam as %String = $$UPTRIMAN^vhRtn1($Piece(@..#Global("D",PakketNummer),"\",2))
+
+	Kill @..#Global("IK",KlantNummer,PakketNaam)
+	Kill @..#Global("D",PakketNummer)
+]]></Implementation>
+</Method>
+
+<Method name="GeefPakketNummersVoorKlantProduct">
+<FormalSpec>KlantId:%String,ProductId:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set Pakketnummers  = ##class(%ListOfDataTypes).%New()
+	#dim KlantNummer = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(KlantId)
+	
+	#dim PakketNummer as %String = ""
+	For  Set PakketNummer = $Order(@..#Global("IP",ProductId,KlantNummer,PakketNummer)) quit:PakketNummer=""  Do
+	. DO Pakketnummers.Insert(PakketNummer)
+	
+	Quit Pakketnummers
+]]></Implementation>
+</Method>
+
+<Method name="GeefTypeEPakketNummersVoorKlantProduct">
+<FormalSpec>KlantId:%String,ProductId:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set Pakketnummers  = ##class(%ListOfDataTypes).%New()
+	#dim KlantNummer = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(KlantId)
+	
+	#dim PakketNummer as %String = ""
+	For  Set PakketNummer = $Order(@..#Global("IP",ProductId,KlantNummer,PakketNummer)) quit:PakketNummer=""  Do
+	. DO:($Piece(@..#Global("D",PakketNummer),"\",3)="E") Pakketnummers.Insert(PakketNummer)
+	
+	Quit Pakketnummers
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductIdsVoorPakketNummer">
 <FormalSpec>PakketNummer:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
@@ -164,29 +231,6 @@
 <Implementation><![CDATA[	quit $$NEXTID^PAKKET
 ]]></Implementation>
 </Method>
-
-<Method name="MaakViaPakketnaam">
-<FormalSpec>KlantNummer:%String,Pakketnaam:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim PakketNummer as %String = ..GeefNieuwPakketNummer()
-	Set $Piece(@..#Global("D",PakketNummer),"\",1) = KlantNummer
-	Set $Piece(@..#Global("D",PakketNummer),"\",2) = Pakketnaam
-	
-	Set @..#Global("IK",KlantNummer,$$UPTRIMAN^vhRtn1(Pakketnaam)) = PakketNummer
-		
-	Quit PakketNummer
-]]></Implementation>
-</Method>
-
-<Method name="GeefPakketNummerViaPakketnaam">
-<FormalSpec>KlantNummer:%String,Pakketnaam:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit @..#Global("IK",KlantNummer,$$UPTRIMAN^vhRtn1(Pakketnaam))
-]]></Implementation>
-</Method>
 </Class>