cPE87 G 1 ;INSTALLATIE UTILI-DATA (PRODUKTEN) ;%PE87;
 ;
T1 ;\2\S R="K\2000\PRODUKTKODE\PR\PR1" D R7^cA107;S K=+^;PR1(K);S K1=$N(^;PR1(K1)),I1=K1 I I1'=-1 S I1=+^(K1) S:K1]I1X I1=-1
T2 ;VIA VOLGORDE VAN OPENING\S I1=$N(^;PR(I1))
T3 ;VIA ;\D 1^cPE84;\D 3^cPE84
T4 ;VIA KLASSIFIKATIE\D 2^cPE84
T5 ;VIA PRODUKTKODE\S K1=$N(^;PR1(K1)),I1=K1 S:I1'=-1 I1=$P(^(K1),D,1)
T6 ;LE;D ^cPE85 S J1=U3 S:$L(J1) J1=^;L1(J1)
 ;
S1 S K=K+1
S1A S R=$N(@("^"_Q_"PR(0,X)")) G S1Z:R=-1!(R'?.N)!(R\100'=(X\100)) S X=R,R=^(R)
S1B S Y=$P(R,U,1,3)_U_U_$P(R,U,5,6)_U_U I $P(R,U,16)#100=1 S:OBS=U Y=Y_$P(R,U,8) S Y=Y_U_$P(R,U,9)_U_OBS
S1C E  S Y=Y_$P(R,U,8,9)_U_U
S1D S Y=Y_";;;;;S K3="_($P(R,U,16)#100)_PRO_";;;;;;"_$P(R,U,22,23)_U
S1E S @("^"_Q_"LI(""PR"",K*100+(X#100))")=Y G S1A
S1Z Q
 ;
1 K @("^"_Q_"LI(""PR"")") S @("^"_Q_"LI(""PR"",0)")=@("^"_Q_"PR(0,0)")_$P($T(T1),U,2,3)_Q_$P($T(T1),U,4,5)_Q_$P($T(T1),U,6)
11 S ^(1)=$P($T(T2),U,2)_Q_$P($T(T2),U,3)
13 I $D(@("^"_Q_"PR(0,""LE"")")),$L($P(^("LE"),D,2)) S @("^"_Q_"LI(""PR"",2)")=$P($T(T3),U,2)_$P(^("LE"),D,2)_$P($T(T3),U,3)
15 I $D(@("^"_Q_"PR(0,""HG"")")),$L($P(^("HG"),D,2)) G 21
17 I $D(^("GR")),$L($P(^("GR"),D,2)) G 21
19 I $D(^("SG")),$L($P(^("SG"),D,2)) G 21
2 G 23
21 S @("^"_Q_"LI(""PR"",3)")=$P($T(T4),U,2)
23 S @("^"_Q_"LI(""PR"",4)")=$P($T(T5),U,2)_Q_$P($T(T5),U,3)
25 I $D(@("^"_Q_"PR(0,""MK"")")),$L($P(^("MK"),D,2)) S @("^"_Q_"LI(""PR"",5)")=$P($T(T3),U,2)_$P(^("MK"),D,2)_$P($T(T3),U,4)
3 S K=@("^"_Q_"PR(0,0)"),K=1
31 S X=$N(^(K*100+99)) I X'=-1,X?.N,X\100-K=1 S K=X\100 G 31
33 I X'=-1,X?.N S X=X\100*100,PRO=" D ^cPE86",OBS=U D S1 I R'=-1,R?.N S X=R\100*100,PRO=" D ^cPE85",OBS=$P($T(T6),U,2,3)_Q_$P($T(T6),U,4) D S1
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 16.07.87 -  8 u 56