Index: DOM/PM/impl/DataM/PakketService.cls.xml
===================================================================
diff -u -r47431 -r50132
--- DOM/PM/impl/DataM/PakketService.cls.xml	(.../PakketService.cls.xml)	(revision 47431)
+++ DOM/PM/impl/DataM/PakketService.cls.xml	(.../PakketService.cls.xml)	(revision 50132)
@@ -34,6 +34,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPakketNaam">
+<FormalSpec>PakketNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+
+	Quit:$Data(@..#Global("D",PakketNr)) $Piece(@..#Global("D",PakketNr),"\",2)
+	
+	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Pakket met PakketNr '"_PakketNr_"' bestaat niet."))
+]]></Implementation>
+</Method>
+
 <Method name="MaakPakket">
 <FormalSpec>KlantId:%String,Pakketnaam:%String</FormalSpec>
 <ReturnType>%String</ReturnType>