PVKSPW ;NEW PROGRAM [ 11/08/2003   8:27 PM ]
 ;Set PRNrs=""
 ;For  Set PRNr=$$SELECT^PRODUKT6() Quit:PRNr'?4.7N  Set PRNrs=PRNrs_";"_PRNr Write @F11,@F1,PRNrs,!
 Quit:'$L(PRNrs)
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"TEST.txt","W")
 Use Dev
 For I=1:1:$L(PRNrs,";")  Set PRNr=$P(PRNrs,";",I)  Do:PRNr
 .Set Wk=199800
 .For  Set Wk=$O(^KSPW(PRNr,Wk)) Quit:Wk'?6N  Do
 ..Set TLNr=""
 ..For  Set TLNr=$O(^KSPW(PRNr,Wk,TLNr)) Quit:TLNr=""  Do
 ...Set Rec=^KSPW(PRNr,Wk,TLNr)
 ...Set Week=$$EXTDATE^vhDTyp($$INTDATE^vhDTyp($E(Wk,3,4)_"/"_$E(Wk,5,6),"DW"))
 ...Write PRNr,$C(9),$P(^KPR(PRNr,0),D,1),$C(9),Week,$C(9),TLNr,$C(9),$P(Rec,D,1),$C(9),$TR($P(Rec,D,2),".",","),!
 Close:0'[Dev Dev
 Quit