PVKDP ;NEW PROGRAM [ 11/08/2003   8:27 PM ]
 ;Transfer klassificatie naar Notes
 Set Dev=$$OPEN^vhDEV(,"TRANSKLAS.txt","W")
 Use Dev
 Set SG=""
 Set OldGR="",OldHG=""
 For  Set SG=$O(^KPSG1(SG)) Quit:SG=""  Do
 .Set HG=$E(SG,1,4)_" "
 .Set GR=$E(SG,1,9)_" "
 .Set HGOms=$P(^KPHG1(HG),D)
 .Set GROms=$P(^KPGR1(GR),D)
 .Set GROms=$P(GROms,",",$L(GROms,",")-($P(GROms,",",$L(GROms,","))=""))
 .Set:$E(GROms)=" " $E(GROms)=""
 .Set SGOms=$P(^KPSG1(SG),D)
 .Set SGOms=$P(SGOms,",",$L(SGOms,",")-($P(SGOms,",",$L(SGOms,","))=""))
 .Set:$E(SGOms)=" " $E(SGOms)=""
 .If OldHG'=HG Do
 ..Write $E(HG,3,4)," \ - \ -",$C(9)
 ..Write HGOms," \ - \ -",!
 .If OldGR'=GR Do
 ..Write $E(HG,3,4)," \ ",$E(GR,7,9)," \ -",$C(9)
 ..Write HGOms," \ ",GROms," \ -",!
 .Write $E(HG,3,4)," \ ",$E(GR,7,9)," \ ",$E(SG,12,17),$C(9)
 .;Write $E(HG,3,4)," ",HGOms," \ ",$E(GR,7,9)," ",GROms," \ ",$E(SG,12,17)," ",SGOms,$C(9)
 .Write HGOms," \ ",GROms," \ ",SGOms,!
 .Set OldHG=HG,OldGR=GR
 Close:0'[Dev Dev
 Quit