KPLBR6 G 1 ;BESTELREFERENTIES ;UTILIDATA;KPLBR1;Go van KPLBR1 - Do naar KPSELS [ 11/29/2003   1:16 PM ]
 ;
T1 ;SELEKTIE : 
T2 ;================================================================================
T3 ;--------------------------------------------------------------------------------
T4 ;BLZ:
T5 ;IDENTNUMMER : 
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 S BLZ=0
11 S R=66 D ^KFOLE
13 S I=100 G 19:$N(B(I))=-1 D HD,^KPSELS
19 S Q1=Q0,Q0="^"_Q_"PR(PR,0)",LES=""
25 S UTN=$N(@Q1) I UTN=-1 W !,# G 160
100 S PR=+^(UTN) D ^KPCHKPR G 25:'OK
 S R=$O(^KPR(PR,"J")) G 25:$E(R)'="J"
 I $E(R,2,9)'=LES S LES=$E(R,2,9),LE=^KL1(LES),LEV=^KLE(LE,0) W:BLZ # D HD,HDP
112 S:'$D(A("J")) A("J")="" I LN>44 W # D HD,HDP
114 S LN=LN+1 W !,$P(A(0),D,1),?34,":",?36,$P(A(4),D,1) S LN=LN+1 W !,$P($T(T5),U,2),$P(A(2),D,25),?36,$P(A(4),D,2) S LN=LN+1 W !,$P(A("J"),D,3),?36,$P(A(4),D,3)
116 S LN=LN+1 W !,$S($P(A("J"),D,17)="":"INCL.",1:$P(A("J"),D,17)_" "_$P("%\/M",D,$F("HM",$P(A("J"),D,28))-1)) S R=$P(A("J"),D,19)_"\12\7\2" D:+R R3 W ?36,$P(A(5),D,1)
118 F I=2,3 I $L($P(A(5),D,I)) S LN=LN+1 W !?36,$P(A(5),D,I)
120 S LN=LN+1 W !,$P($T(T3),U,2)
128 G 25
160 S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE
162 D CLOSE^vhPRINTER K @("^"_Q_"HULP($J)")
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,?72,$P($T(T4),U,2),$J(BLZ,4),!,?28,$P($T(+1),U,2),$P($T(+1),U,3),?72,DT,!
HDA W ?73,TD,!!
HDZ Q
 ;
HDP W $P($T(T2),U,2),!! W:$L($P(LEV,D,4)) $P(LEV,D,4)," " W $P(LEV,D,2),!,$P(LEV,D,5)
HDPA W ! W:$L($P(LEV,D,6)) $P(LEV,D,6),"   " W $P(LEV,D,7),!!,$P($T(T2),U,2)
HDPZ Q
 ;