cwModKlas ; Wijzigen klassificatie via EXEL
 ;
 ; Output status = 1            -> verwerkt
 ;               = "Korttekst"  -> Korttekst niet correct (niet verwerkt)
 ;               = "Hoofdgroep" -> Hoofdgroep niet correct (niet verwerkt)
 ;               = "Groep"      -> Groep niet correct (niet verwerkt)
 ;               = "SubGroep"   -> Subgroep niet correct (niet verwerkt)
 ;               = "KKey"       -> KKey niet correct (niet verwerkt)
NewKlas(KortTxt,HoofdGr,Groep,SubGroep)
 Quit "Gelieve eerst een aanpassing tge doen i.v.m. uitzonderingen"
 Quit
 New D,U,Q,boot,DT,Status,PRNr,KKey
 Set D="\",U=";",Q="K",boot=$ZU(110),DT=$$EXTDATE^vhDTyp(,"DKP")
 Set QU=$G(QU) Set:QU="" QU=$$USERNAME^vhUSER(,-1) Set:QU="" QU="CW"
 Set Groep=HoofdGr_"-"_Groep,SubGroep=Groep_"-"_SubGroep
 Set PRNr=$$SELECT^PRODUKT6(,,$TR(KortTxt," ",""),,,,,1)
 If 'PRNr Set Status="Korttekst" ; Ongeldige korttekst
 Else  Do NewKlasViaPRNr(PRNr,HoofdGr,Groep,SubGroep) ; Geldige korttekst
 Quit Status
 
NewKlasViaPRNr(PRNr,HoofdGr,Groep,SubGroep)
 New D,U,Q,boot,DT,Status,KKey,OldLogKlas,NewLogKlas,OldKKey
 Set D="\",U=";",Q="K",boot=$ZU(110),DT=$$EXTDATE^vhDTyp(,"DKP")
 Set QU=$G(QU) Set:QU="" QU=$$USERNAME^vhUSER(,-1) Set:QU="" QU="CW"
 Set Groep=HoofdGr_"-"_Groep,SubGroep=Groep_"-"_SubGroep
 Do
 . Set HoofdGr=$$GETSORTKEY^KLASS(HoofdGr)
 . If HoofdGr="" Set Status="Hoofdgroep" Quit  ; Ongeldige hoofdgroep
 . Set Groep=$$GETSORTKEY^KLASS(Groep)
 . If Groep="" Set Status="Groep" Quit  ; Ongeldige groep
 . Set SubGroep=$$GETSORTKEY^KLASS(SubGroep)
 . If SubGroep="" Set Status="SubGroep" Quit  ; Ongeldige SubGroep
 . Set HoofdGr=$P(^KPHG(HoofdGr),D,2)
 . Set Groep=$P(^KPGR(Groep),D,2)
 . Set SubGroep=$P(^KPSG(SubGroep),D,2)
 . Set KKey=$P($G(^KPSG1(SubGroep)),D,6)
 . If 'KKey Set Status="KKey" Quit  ; KlasKey ongeldig
 . Set OldKKey=$P(^KPR(PRNr,"I1"),D,4)
 . Do DELIND^PRODUKT2(PRNr)
 . Do MODFIELD^PRODUKT(PRNr,"I101",HoofdGr,1,)
 . Do MODFIELD^PRODUKT(PRNr,"I102",Groep,1,)
 . Do MODFIELD^PRODUKT(PRNr,"I103",SubGroep,1,)
 . Do MODFIELD^PRODUKT(PRNr,"I104",KKey,1)
 . Do BLDIND^PRODUKT2(PRNr)
 . Set Status=1
 Quit Status