cwFSC ;Produkt FSC
 ;
 ; Bepaal de FSCCode uit de bouwstenen (de laagste waarde)
CalcFSCCode(PRNr)
 New FSCCode,MinimumFSCCode,FSCKwalificatie,FSCRes,BSKey,BSRec,BSPRNr
 Set BSKey="",MinimumFSCCode=$P(^KPR(PRNr,3),D,5),FSCKwalificatie=9999
 For  Set BSKey=$O(^PRBS("BS",PRNr,BSKey)) Quit:BSKey=""  Do
 . Set BSRec=^PRBS("BS",PRNr,BSKey),BSPRNr=$P(BSRec,D)
 . Quit:'BSPRNr
 . Set FSCCode=$P($G(^KPR(BSPRNr,3)),D,5)
 . Quit:'$L(FSCCode)  ; Geen hout
 . Set FSCRes=^RES("PRODUKT","PI","FSC","D",FSCCode)
 . Set:FSCKwalificatie>$P(FSCRes,"`",3) FSCKwalificatie=$P(FSCRes,"`",3),MinimumFSCCode=FSCCode
 Quit MinimumFSCCode