PVBLUMI ; ;[ 12/12/2003  9:24 AM ]
 Set (NoCnt,Cnt)=0
 Set File=$$READ^vhDEV("","NP2.TXT","D`GET^"_$ZN,"L","P")
 ZWrite Cnt
 ZWrite NoCnt
 Q
 
 
GET(Rec) 
 Set BLID=$P(Rec,$C(9),2)
 Set BrutoPr=$P(Rec,$C(9),12)
 Set Kort=$P(Rec,$C(9),22)
 ;If BLID="" Write "NO ",Rec,! Quit
 Set PRNr=""
 For I=0,8 Do  Quit:PRNr
 . If $D(^KPR2(I_BLID_" ")) Set PRNr=$P(^KPR2(I_BLID_" "),D)
 If 'PRNr Write "NOPROD ",BLID," ",$P(Rec,$C(9),3),! Set NoCnt=NoCnt+1 Quit
 Set Rec2=^KPR(PRNr,2)
 Set $P(Rec2,D,3)=$TR(BrutoPr,",.",".")
 Set $P(Rec2,D,4)=$TR(Kort,",.",".")
 Set ^KPR(PRNr,2)=Rec2
 Set Cnt=Cnt+1
 ;Write PRNr,*9,BLID,*9,BrutoPr,*9,Kort,!
 Quit