ENQUETE2 ;Transfert van de enquete global [ 08/16/2002  2:55 PM ]
 u 0:(::::4096)
 d ^cA604
 Kill ^HULP($J)
 Merge ^HULP($J)=^Enquete("A")
 Set KLNr="" For  Set KLNr=$O(^Enquete(KLNr)) Quit:'KLNr  Merge ^HULP($J,KLNr)=^Enquete(KLNr) S ^HULP($J,KLNr)=^Enquete("A",KLNr)
 R !,"BEGIN TRANSFERT",K
 Set KLNr="" For  Set KLNr=$O(^HULP($J,KLNr)) Quit:'KLNr  Do
 .Set Rec=^HULP($J,KLNr)
 .Set KLRec=^KKL(^KK1(KLNr),0)
 .Set KLRec2=^KKL(^KK1(KLNr),2)
 .Write KLNr,$C(9),$P(Rec,D,1),$C(9),$P(Rec,D,7),$C(9),$P(KLRec,D,20),$C(9)
 .Write $P(Rec,D,4),$C(9),$S($L($P(KLRec2,D)):$P(KLRec2,D),1:$P(KLRec,D,13)),$C(9)
 .Set Rec=$P($G(^HULP($J,KLNr,1)),D,1,37)
 .Set $P(Rec,D,38)=""
 .Write $TR(Rec,D,$C(9))
 .Set Rec=$P($G(^HULP($J,KLNr,2)),D,1,8)
 .Set $P(Rec,D,9)=""
 .Write $TR(Rec,D,$C(9))
 .Set Rec=$P($G(^HULP($J,KLNr,3)),D,1,5)
 .Set $P(Rec,D,3)=$TR($P(Rec,D,3),".",",")
 .Write $TR(Rec,D,$C(9))
 .Write !
 Write "~~~"