KPSELQ ;SELEKTIE VOOR LISTINGS ;KPSEL; Quit naar KPSELH [ 10/26/2001  11:25 AM ]
 G 1
 ;
T1 ;VANAF :
T2 ;TOT   :
 ;
1 New FKey,LKey,Niv,KHS,Pos
 Set Pos="803;811;1003;1011"
10 Kill FKey,LKey
 Set FP=$P(Pos,";",1) Write:FP @F,$P($T(T1),U,2)
 Set FP=$P(Pos,";",3) Write:FP @F,$P($T(T2),U,2)
 Set K=$$SELECT^KLASS(-3,1,"","","Vanaf klassificatie") Quit:K="-"
 Set FKey=+K,Niv=$P(K,D,2)
 If K="." Do  ; Alles selekteren
 .Set KHS="",KHS=$$ORN^DD("oPRKLH"),FKey=$$FF^DD("oPKHKey")
 .Set KHS="",KHS=$$ORN^DD("oPRKLH","",-1),LKey=$$FF^DD("oPKHKey")
 .Set Niv=1
 Set FP=$P(Pos,";",2) Write:FP @F,$J("",13),@F,$$DISPL^KLASS(FKey) 
 Goto 12:$D(LKey)
11 Set K=$$SELECT^KLASS(Niv,1,FKey,Niv-1,"Tot klassificatie") Goto 10:K="-"!(K=".")
 Set LKey=+K
 Goto 11:$$GETSORT^KLASS(FKey)]$$GETSORT^KLASS(LKey)
12 Set FP=$P(Pos,";",4) Write:FP @F,$J("",13),@F,$$DISPL^KLASS(LKey) 
 Set (GR,SG,PRC)=0,(GRX,SGX,PRCX)="ZZZZZ",(MK,MKX)="  "
 Set HG=$$GETSORT^KLASS(FKey,1),HGX=$$GETSORT^KLASS(LKey,1)
 If Niv>1 Set GR=$$GETSORT^KLASS(FKey,2),GRX=$$GETSORT^KLASS(LKey,2)
 If Niv>2 Set SG=$$GETSORT^KLASS(FKey,3),SGX=$$GETSORT^KLASS(LKey,3)
 Quit
 
SELECT(Pos,Sort) New GR,GRX,SG,SGX,HG,HGX,KHS,Niv,FKey,LKey
 Set Niv="",FKey="",LKey=""
 Set Pos=$G(Pos)
 Do 10
 Quit:'Niv "" 
 Quit:'$G(Sort) Niv_D_FKey_D_LKey
 Quit Niv_D_$S(Niv=1:HG,Niv=2:GR,1:SG)_D_$S(Niv=1:HGX,Niv=2:GRX,1:SGX)