KPE4 G 1 ;LIJST CLASSIFIKATIES ; [ 08/05/2002   1:05 PM ]
 ;
T1 ;LIJST VAN : .
T2 ;-[] = einde programma
T3 ;LIJST 
T4 ;IN ALFABETISCHE ORDE VANAF 
T5 ;IN ALFABETISCHE ORDE TOT   
T7 ;. = vanaf het begin   [] = specifieke 
T8 ;VANAF HET BEGIN
T10 ;. = tot het einde   [] = specifieke 
T11 ;TOT HET EINDE
T16 ;VOLGNUMMER OF 
T17 ;   [] = vervolg
T18 ;"";C;C;1;;\"^";C;L;15;;|\" Omschrijving nederlands - frans - duits";C;L;
T19 ;"";C;C;1;;\1;C;L;15;;| ;;$S($L(X):$$DISPL^KLASS($$GETKEY^KLASS(X)),1:"")\2;C;L;
T20 ;47;;|\" T ";C;L;3;;|\" Gem. prijs";C;R;11;;
T21 ;46;;| \4;C;L;1;; | \3;N;R;10;2;
T22 ;47;;|\" T ";C;L;3;;|\" G: ";C;L;4;;\"geeft aan";C;L;10;;;$D(D)\"- O: ontvangt van";C;L;49;;
T23 ;46;;| \4;C;L;1;; | \5;C;L;3;;\6;C;L;15;;;10\7;C;L;15;;;10\8;C;L;15;;;10\9;C;L;15;;;10
 ;
BOOM S SG=""
 F  S SG=$O(^KPSG(SG)) Q:SG=""  D
 .S ^HULP($J,0,SG)=SG_^KPSG(SG)
 Q
 ;
LINK S SG="" F  S SG=$O(^KPSG1(SG)) Q:SG=""  D
 .S HGX="" F  S HGX=$O(^KPSG1(SG,HGX)) Q:HGX=""  D
 ..S GRX="" F  S GRX=$O(^KPSG1(SG,HGX,GRX)) Q:GRX=""  D
 ...S SGX="" F  S SGX=$O(^KPSG1(SG,HGX,GRX,SGX)) Q:SGX=""  D
 ....S ^HULP($J,SG,"F",SGX)="",^HULP($J,SGX,"T",SG)=""
 Q
 ;
link(SG) S T=0,SGX="",X="G:"
l1 F I=1:1:4 S SGX=$O(^HULP($J,SG,"F",SGX)) Q:SGX=""  S $P(X,D,I+1)=SGX
 I $L($P(X,D,2,99)) S $P(X,D,6)=1,T=T+1,T(T)=X,X="" G l1:$L(SGX)
 S T=0,X="O:"
l2 F I=1:1:4 S SGX=$O(^HULP($J,SG,"T",SGX)) Q:SGX=""  S $P(X,D,I+1)=SGX
 I $L($P(X,D,2,99)) S T=T+1,T(T)=X,X="" G l2:$L(SGX)
 K ^HULP($J,SG)
 Q
 ;
1 S K=$P($T(+1),U,2)_QN_" " S FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 D PRIO^vhINITML("L")
11 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3)
BREAK1 B 1
13 S Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" "
15 S Y=$N(^(Y)) G 20:Y=-1 S @Y=^(Y) G 15
20 S SEL="",FP=301 W @F,@F1 F I="HG","GR","SG","MK" S Y=$P(@I,D,2) S:Y="" SEL=SEL_" " S SEL=SEL_$E(Y,1)
25 S FP=2203 W @F,@F1,$P($T(T1),U,2) K IK D S1,IK^PROC1 G 25:R=" ",25:SEL_"-"'[R
 G BREAK0:R="-" S K=$F(SEL,R)-1
30 S Y=$P("HG\GR\SG\MK",D,K),BST="P"_Y,SEL=$P(@Y,D,2),LGT=$P(@Y,D,1),SL=$P(@Y,D,4),EX=$P(@Y,D,5)
 ;
35 S BLZ=0,(LN,VN)=0
40 S FP=378 W @F,@F5 S FP=370-$L(SEL) W @F,@F4,$P($T(T3),U,2),SEL," ",@F5
50 S (IX1,IX2)="",FP=903 W @F,@F1,$P($T(T4),U,2),SEL," : ",!!,?2,$P($T(T5),U,2),SEL," : "
60 S FP=2303 W @F,@F1,$P($T(T4),U,2),SEL," : .",!?2,$P($T(T7),U,2),SL
 K IK D IK^PROC1 S K=R S:K="ENTER" K="" G 20:K="-",60:"."'[K
62 I K="." S FP=933+$L(SEL) W @F,@F2,$P($T(T8),U,2) G 80
64 S R=1500_D_SEL_D_BST D S7 G 50:K="-" S IX1=R,FP=933+$L(SEL) W @F,@F2,$P(^(R),D,2)
80 S FP=2303 W @F,@F1,$P($T(T5),U,2),SEL," : .",!?2,$P($T(T10),U,2),SL
 K IK D IK^PROC1 S K=R S:K="ENTER" K="" G 80:"-."'[K I K="-" S FP=1500 W @F,@F1 G 50
82 I K="." S FP=1133+$L(SEL) W @F,@F2,$P($T(T11),U,2) G 100
90 S R=1500_D_SEL_D_BST D S7 S:K="-" FP=1500 W:K="-" @F,@F1 G 80:K="-" S IX2=R,FP=1133+$L(SEL) W @F,@F2,$P(^(R),D,2)
100 K ^HULP($J) I BST="PSG" D LINK,BOOM ;F I="IX1","IX2" I $L(@I) F  Q:$E(@I)'?.N  S @I=$E(@I,2,99)
110 I IX1'="" D  G 140
 .I BST'="PSG" S K=$N(@("^"_Q_BST_"(-1)")) Q
 .S K=$N(^HULP($J,0,-1))
120 I BST'="PSG" S IX1=$N(@("^"_Q_BST_"(IX1)"))
 E  S IX1=$N(^HULP($J,0,IX1))
 I IX1=-1 G 170
130 I $L(IX2),IX1]IX2 G 170
140 S K=$P(^(IX1),D,2),R=$E(K,1,99),(KN,KF,KD,KP,KT)=""
142 K T I BST="PSG" D link(K)
150 I $D(@("^"_Q_BST_1_"(K)")) S K=^(K),KN=$P(K,D,1),KF=$P(K,D,2),KD=$P(K,D,3),KP=$P(K,D,4),KT=$P(K,D,5)
160 S R=R_D_KN_D_KP_D_$P("*",D,KT+1) S:$D(T(1)) R=R_D_T(1) S VN=VN+1,^HULP($J,VN)=R
162 F I="KF","KD" S R="",$P(R,D,2)=@I S:$D(T($S(I="KF":2,1:3))) R=R_D_D_D_T($S(I="KF":2,1:3)) S VN=VN+1,^HULP($J,VN)=R
163 F I=4:1 Q:'$D(T(I))  S R="",$P(R,D,5)=T(I),VN=VN+1,^HULP($J,VN)=R
165 G 120
170 I $O(^HULP($J,VN))'="" K ^($N(^(VN))) G 170
 K ^HULP($J,0)
172 S DL(1)="LD",LD(1)="^HULP("_$J,LD(2)=$P($T(T19),U,2,99),LD(8)=$P($P($T(T18),U,2,99),"^",1)
173 S LD(8)=LD(8)_$E(SEL,1) F I=2:1:$L(SEL) S LD(8)=LD(8)_$C($A($E(SEL,I))+32)
174 S LD(8)=LD(8)_$P($P($T(T18),U,2,99),"^",2)
175 I BST="PHG" S LD(2)=LD(2)_62,LD(8)=LD(8)_63
176 I BST="PGR" S LD(2)=LD(2)_$P($T(T21),U,2,99),LD(8)=LD(8)_$P($T(T20),U,2,99)
178 I BST="PSG" S LD(2)=LD(2)_$P($T(T23),U,2,99),LD(8)=LD(8)_$P($T(T22),U,2,99)
180 S LD(11)=SEL
190 D ^OUTPUT("PT","",$S(BST="PSG":"B",1:"S"))
 ;
BREAK0 B 0
YZ K ^HULP($J) D PRIO^vhINITML() Q
 ;
S1 W !?2 F I="HG","GR","SG","MK" S Y=$P(@I,D,2) I Y'="" W $E(Y,1)," = ",$P(@I,D,4),"   "
S1A W !?2,$P($T(T2),U,2)
S1Z Q
 ;
S7 S S4=$P(R,D,1)+1+F60,S0=0,SA=$P(R,D,2),S8="^"_Q_$P(R,D,3),FP=S4 W @F,@F1
S7A S FP=2403+F60 W @F,@F1 W:$D(ST) $P($T(T16),U,2) W SA W:S0 $P($T(T17),U,2) W " : ",@F0
S7B R K G S7A:K?.E1C.E!($L(K)>LGT),S7Z:K="-" S:$L(K) S0=0 S FP=S4,S9=0 W @F,@F1 I K="" K ST S S1=S4 G S7F:S0,S7D:'S0
S7C G S7D:'$D(ST(K)) S S3=ST(K) G S7M
S7D K ST S S6=$$UPTRIMAN^vhRtn1(K)
S7E S S5=$E(S6,1,28) S:S6="" S5=" " S:S5?.N S5=S5_" " S S1=S4,S2=S5 G S7G:$D(@(S8_"(S2)")),S7I:$N(@(S8_"(S2)"))=-1
S7F S S2=$N(@(S8_"(S2)")) G S7I:($E(S2,1,$L(S6))]S6)&'S0&(S1=S4) G S7J:S2=-1 I $E(S2,1,$L(S6))'=S6 S S0=0 G S7A
S7G S FP=S1,S9=S9+1,ST(S9)=S2 W @F,$C(13),?2,$J(S9,2),". ",?6,$P(^(S2),D,2)
S7H S S1=S1+100 G S7F:S1<(2100+F60) S S0=1 G S7A
S7I X ^cTXT(0,"N",156) R K
S7J S (S2,S0)=0 G S7A
S7M S:$E(S3,$L(S3))'=" " S3=S3_" " S R=S3
S7Z K S0,S1,S2,S3,S4,S5,S6,S7,S8,S9,SA,ST Q
 ;
Z X ^cZ Q
ZZ ; 26.10.88 -  9 u 15