BLVD2Ctr ; Kontrole of de produkten nog volgens de blum-boom zijn opgeslagen [ 01/13/94  1:22 PM ]
 ;Het resultaat van de kontrole zit in HULP($J)
 ;
 d ^cA604
 s PRNr=0
 k ^HULP($J)
 f  s PRNr=$O(^KPR(PRNr)) Quit:'PRNr  Do
 .Do FETCHPR^UTILI(PRNr)
 .Quit:$P(B("J"),D)'=5005
 .Set IDNr=$P(B(3),D,25)
 .Set BLID="0"_$TR($E(IDNr,2,99),".","")
 .Set VD2=$E($P($G(^BLProd("D",BLID)),D,19),1,4)
 .If 'VD2,$P(B("I"),D,4)=1 Set VD2=1691
 .If 'VD2,$P(B("I"),D,4)=219 Set VD2=1742
 .If 'VD2,$P(B("I"),D,4)=105 Set VD2=1744
 .If VD2="" Do MARK("V",PRNr) Quit
 .Set oKlas=##class(Blum.Klassificatie).OpenVD2(VD2)
 .If '$isObject(oKlas) Do MARK("K",PRNr) Quit
 .Set KKey=oKlas.SubGroepGetObjectId()
 .If KKey="" Do MARK("K",PRNr) Quit
 .If KKey'=$P(B("I"),D,4) Do MARK("D",PRNr) Quit
 q
 .Set KHS=$$GETSORT^KLASS(KKey,1)
 .Set KGS=$$GETSORT^KLASS(KKey,2)
 .Set KSS=$$GETSORT^KLASS(KKey,3)
 .Set Key=$O(^KPR(PRNr,"I")) 
 .If $E(Key)'="I" Do MARK("P",PRNr)  Quit
 .;Set ^pvKPRi(PRNr,Key)=B("I")
 .Do DELIND^PRODUKT2(PRNr)
 .Set ^KPR(PRNr,Key)=KHS_D_KGS_D_KSS_D_KKey
 .Do BLDIND^PRODUKT2(PRNr)
 Q
MARK(Mark,PRNr) 
 Set ^HULP($J,PRNr)=Mark_D_IDNr_D_$P(B(1),D,1)_D_VD2
 Quit