PVKLAS(NivNr,KKEy,PRNr,Input) ;NEW PROGRAM [ 04/09/2003  9:13 AM ]
 If NivNr=4 Set $P(^PVPR(PRNr),D)=Input Quit
 Set HG=$$GETSORT^KLASS(KKey,1)
 Set GR=$$GETSORT^KLASS(KKey,2)
 Set SG=$$GETSORT^KLASS(KKey,3)
 Set KortT=""
 For  Set KortT=$O(^KPH(HG,GR,SG,"  ",KortT)) Quit:KortT=""  Do
 .New PRNr
 .Set PRNr=^(KortT)
 .Set $P(^PVPR(PRNr),D)=Input
 Quit
 
EXPORT Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"KLASSIF.txt","W")
 Use Dev
 Set KKey=""
 For  Set KKey=$O(^KLAS("K",KKey)) Quit:KKey=""  Do
 . Set Rec=^(KKey)
 . Write $TR(Rec,"\",$C(9)),!
 Close:0'[Dev Dev
 Quit
 
TRANSINP 
 For  R K Q:K=""  D
 .Set IDNr=$P(K,$C(9))
 .Set IDInd=$TR(IDNr,".","")_" "
 .Quit:'$L(IDInd)
 .Quit:'$D(^KPR2(IDInd))
 .Set PRNr=$P(^KPR2(IDInd),D)
 .Q:'PRNr
 .Set L=$TR($P(K,$C(9),2),",",".")
 .Set B=$TR($P(K,$C(9),3),",",".")
 .Set H=$TR($P(K,$C(9),4),",",".")
 .Set $P(^PVPR(PRNr),D,2,4)=L_D_B_D_H
 Quit
 
CLEAN s PRNr=""
 For  Set PRNr=$O(^PVPR(PRNr)) Q:PRNr=""  DO
 .s Rec=$G(^PVPR(PRNr))
 .k ^PVPR(PRNr)
 .S:$L(Rec) ^PVPR(PRNr)=Rec