; FMA 5/4/2011
 ; Overzicht van alle gentypes met telkens een voorbeeldproduct
 
 Set PRNr = ""
 Kill Gentypes
 Set ProductAPI =  ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
   . Set Product = ProductAPI.GeefProduct(PRNr)
   . Set GenTyp=$$GENTYP^HAD(PRNr)
   . Set:GenTyp="" GenTyp="-"
   . Set Gentypes(GenTyp) = Product.GeefKorttekst()
 
 Set Gentype = ""
 For  Set Gentype = $O(Gentypes(Gentype)) Quit:Gentype=""  Do
   . w Gentype, ": ", Gentypes(Gentype),!