; Routines speciaal Paul Verhulst
 Quit
 ;
Intivo
 New I,R,Dev,PRNr,KortTxt,IdentNr,LangTxt1,LangTxt2
 Set Dev=$$OPEN^vhDEV(,"IntivoPV.TXT","W","A")
 Do:0'[Dev
 . Use Dev
 . Write "Identnummer",$C(9),"Korttekst",$C(9),"Langtekst",$C(10)
 . Set PRNr=0
 . For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 . . Set I=$O(^KPR(PRNr,"I"))
 . . Quit:$E(I)'="I"
 . . Set R=^KPR(PRNr,I)
 . . Quit:$P(R,D,4)'=1116
 . . Set R=^KPR(PRNr,0),KortTxt=$P(R,D)
 . . Set R=^KPR(PRNr,2),IdentNr=$P(R,D,25)
 . . Set R=$$GETOMSCH^PRODUKT2(PRNr,"N"),LangTxt1=$P(R,D),LangTxt2=$P(R,D,2)
 . . Write IdentNr,$C(9),KortTxt,$C(9),LangTxt1,$C(9),LangTxt2,$C(10)
 . Close Dev
 Quit
 ;
DynaPlugProd
 New I,R,Dev,PRNr,KortTxt,IdentNr,HoofdGr,Groep,SubGroep,CompKort
 Set Dev=$$OPEN^vhDEV(,"DynaPlugProd.TXT","NW","T")
 Do
 . Use Dev
 . Write "SortKey	PRNr	IdentNr	KortTekst	Alias",$C(10)
 . Set HoofdGr=""
 . For  Set HoofdGr=$O(^KPH(HoofdGr)) Quit:HoofdGr=""  Do
 . . Set Groep=""
 . . For  Set Groep=$O(^KPH(HoofdGr,Groep)) Quit:Groep=""  Do
 . . . Set SubGroep=""
 . . . For  Set SubGroep=$O(^KPH(HoofdGr,Groep,SubGroep)) Quit:SubGroep=""  Do
 . . . . Set CompKort=""
 . . . . For  Set CompKort=$O(^KPH(HoofdGr,Groep,SubGroep,"  ",CompKort)) Quit:CompKort=""  Do
 . . . . . Set PRNr=^KPH(HoofdGr,Groep,SubGroep,"  ",CompKort)
 . . . . . 
 . . . . . Set KortTxt=$P(^KPR(PRNr,0),D),IdentNr=$P(^KPR(PRNr,2),D,25)
 . . . . . Set SortKey=$$SORTKEY^PRODUKT(PRNr)
 . . . . . Set lbAliasI=##class(Prod.Kenmerk.DataDefinitie).Get("OEI",PRNr,"AliasI")
 . . . . . Set lbAliasK=##class(Prod.Kenmerk.DataDefinitie).Get("OEI",PRNr,"AliasK")
 . . . . . If $$ISBLUM^PRODUKT2(PRNr)||($LL(lbAliasI))||($LL(lbAliasK)) Do
 . . . . . . Write SortKey,*9,PRNr,$C(9),IdentNr,$C(9),KortTxt,$C(10)
 . . . . . . For I=1:1:$LL(lbAliasI) Write SortKey,$C(9),$LI(lbAliasI,I),*9,PRNr,$C(9),KortTxt,*9,"AI",$C(10)
 . . . . . . For I=1:1:$LL(lbAliasK) Write SortKey,*9,PRNr,$C(9),IdentNr,$C(9),$LI(lbAliasK,I),*9,"AK",$C(10)
 Do CLOSE^vhDEV(Dev)
 Quit