#include PRGACNTs
 /*
 // 	+-+-+-+-+-+-+-+-+-+-+-+-+
 // 	+    TBX - TandemBox    +
 // 	+-+-+-+-+-+-+-+-+-+-+-+-+
 */
 
 ; Test-commands
 Do KillAllObjects^%apiOBJ()
 Set tb=##class(BL.PR.GA.TandemBox).%New()
 Do tb.Initialize()
 Quit
 
 
Initialize   ; Parameters: geen
 Quit
BuildLookup   ; Parameters: .LookupArray
 Quit
BuildSpecTabs   ; Parameters: .SpecTabArray
 Quit
BuildLookupLCode
 Quit
BuildBeperkTPCode   ; Parameters: .DSArray
 Quit
 
DesignFromLadeKleur()   ; Parameters: LadeKleurID
 Quit dsID
TPCodesFromDesign()   ; Parameters: dsID
 Quit $G(lbTPs) 
CalcBreedteIntern()   ; (CB,WD,OPVLLI,OPVLRE,MTIB)
 Quit CB-(2*$G(WD))-($G(OPVLLI)+$G(OPVLRE))-$G(MTIB)
CalcInfoDiverse()   ; Parameters: WSOrdLn,lbArgs
 Quit tmpLB
DFLBoxSideID()   ; Parameters: blnBX,VoorkeurID
 Quit $LI(lbIDs,1)
 
 
 // ========================================================================================================================================= //
 //  Prod.GAData/GAMeta functions                                                                                                             //
 // ========================================================================================================================================= //
BTValuesFromProduct   ; Parameters: Product,lbNaam
 Quit
BTValuesToProduct   ; Parameters: Product
 Quit
BWValuesToProduct   ; Parameters: Product,lbNaam
 Quit
KMValuesToProduct   ; Parameters: Product,GroepID,arValuesSrc
 Quit
 
 
 // ========================================================================================================================================= //
 //  %this functions                                                                                                             //
 // ========================================================================================================================================= //
BTValueSet   ; Parameters: BTNaam,Waarde,.BTUpdates,PropagatieType
 Quit 
BTBeperkIDs()   ; Parameters: Target,arValues,PrepareLUs
 Quit lbIDs
BuildItemsOms()   ; Parameters: BTNaam,lbIDs,SepID
 Quit sOms       
BuildItemsSort   ; Parameters: BTUpdates,BTNaam,lbIDsOut,sOmsOut
 Quit
BuildItemsSort2   ; (.BTUpdates,BTNaam,.lbIDsOut,.sOmsOut)
 Quit
 
BuildBTExtent   ; Parameters: BTExtent    ; BTExtent als .Local doorgeven
 Quit
BuildBTDepend   ; Parameters: BTDep,BTExtent    ; BTDep en BTExtent  als .Local doorgeven
 Quit
BTClassSort()   ; Volgorde is belangrijk voor het opleggen van de beperkingen
 Quit "" 
 
 // ========================================================================================================================================= //
 //  Kenm.Basis  functions                                                                                                                    //
 // ========================================================================================================================================= //
 
SetSpecTabValueOLD   ; Parameters: SpecTab
 New lbSpec,STGroep,lbSpecKMSub,lbIDs
 Set lbSpec=$G(..LookUp(SpecTab,"SpecTabs"))
 If $LL(lbSpec) Do:($P($LI(lbSpec,1),"-",2)="B")
 . Set STGroep=$P($LI(lbSpec,1),"-",1)
 . ;Set lbSpecKMSub=..SpecTabs(STGroep,"B")
 . Set lbIDs=..KMSpecItemsCalc(STGroep,SpecTab)
 . Do:($LL(lbIDs)=1) ..BTValues.SetAt($LI(lbIDs,1),SpecTab)
 Quit
 
KMMergeDFLsForImport()   ; Parameters: KMSpecs,KMDefaults
 Quit KMSpecs
KMSpecItemsCalc()   ; Parameters: GroepID,Kenmerk,lbNegeerKM
 Quit lbIDs
KMFilterKenmerken   ; Parameters: GroepID,KenmerkArray
 Quit
KMPRLijstViaKenmerk   ; Parameters: GroepID,Ref,KenmerkArray,IncludeUndefs
 Quit
KMValuesViaPRLijst()   ; Parameters: GroepID,Kenmerk,PRArray,Sorted
 Quit ##class(Kenm.Basis.DataIndex).SPKenmerkWaardenLB(.GroepID,.Kenmerk,.PRArray,.Sorted)
SPKenmerkWaardenLB()   ; Parameters: GroepID,Kenmerk,PRArray,Sorted
 Quit lbValues
 
 
WFILE
 k tmpAr
 m tmpAr=^Kenm.Basis.DataDefinitieD   ; (1000)
 New OutF
 Set OutF=##class(%Library.File).%New("\\WV_W2K\C$\Wim\wvTEST.txt")
 w OutF.Open("WSN"),!
 w "IsOpen:"_$S(OutF.IsOpen:"Open", 1:"Niks"),!
 Do ArrayToTextW^vhLib("tmpAr",OutF) 
 Do OutF.%Close()
 Quit