cPE43 G 1 ;BEHEER SAMENSTELLING PRODUKTEN ;Quit naar MENU [ 11/08/2003  3:51 PM ]
 ;
ER S %1=0 G ^II:$ZE["<INTERRUPT>",^cER
 ;
S0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
S0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
S0B S S0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
S0C S FP=R2*100+S0+F60 W @F,@F2 W $E("............................................................",1,R6),@F,@F0
S0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
S0E E  G S0C
S0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
S0Z K R,S0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
S1 S UL=UD,X=$E(K,2,4)-1,FP=UD*100+1 W @F,@F1
S1A S X=$N(@("^"_Q_"PS(X)")) G S1Z:X=-1 S FP=UL*100+1 W @F,$C(13),?2,$J(X,3,0),?8,$P(^(X),D,2) S UL=UL+1 G S1A:UL<20
S1Z Q
 ;
S2 S R="K\21\3\SAMENSTELL. "_$P(TL2,D,$F("NFED",KT)-1)_D S:KT'="N" R=R_""".[] = SAMENSTELLING NL.""" S R=R_"\60\\\\\" D S0
S2Z Q
 ;
S3 S ^(KNR)=$P(^(KNR),D,1,$F("NFED",KT)-1)_D_K_D_$P(^(KNR),D,$F("NFED",KT)+1,99),FP=613+($F("NFED",KT)*200) W @F,@F2,K
S3Z Q
 ;
1 S UD=5,UL=20,K=$P($T(+1),U,2),FP=204+$L(QN)+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,QN," ",@F5
2 I '$D(@("^"_Q_"PS")) S @("^"_Q_"PS(0)")="" K ^(0)
5 S TL="NEDERL.\FRANS  \ENGELS \DUITS  ",TL1="NFED",TL2="NL\FR\E.\D.\"
10 S R="KNR\21\3\NUMMER (max 3 cijfers)\""xxx[] = OPENEN,WIJZIGEN OF VERWIJDEREN    Rxxx[] = RAADPLEGEN VANAF xxx""\4\\K=""-""!(K>0&($L(K)<4)&(K?.N))!(K?1""R""1N.N&($L(K)<5))\\\" D S0 G YZ:K="-" I $E(K,1)="R" D S1 G 10
12 S FP=UD*100+1 W @F,@F1 S FP=803,X=$N(@("^"_Q_"PS(-1)")) W @F,"NUMMER  : ",KNR
14 F I=1:1:4 S FP=FP+200 W @F,$P(TL,D,I)," : " I $D(^(KNR)) W $P(^(KNR),D,I+1)
16 G 30:'$D(^(KNR)) S R="KT\21\3\WIJZIGEN BEPAALDE TAAL OF VERWIJDEREN\""N[] = NEDERL.  F[] = FRANS  E[] = ENGELS  D[] = DUITS  V[] = VERWIJDEREN""\1\\""-NFEDV""[K&$L(K)\\\" D S0 G 10:K="-",20:K="V" D S2 G 16:K="-" S:K="."&(KT'="N") K=$P(^(KNR),D,2)
18 D S3 G 16
20 S R="K\21\3\VERWIJDEREN\""V[] = DEFINITIEF VERWIJDEREN    -[] = HERNEMEN""\1\\""-V""[K&$L(K)\\\" D S0 G 16:K="-" K ^(KNR) G 10
30 S ^(KNR)="\\\\\"
32 F KT="N","F","E","D" D S2 Q:KT="N"&(K="-")  S:K="."&(KT'="N") K=$P(^(KNR),D,2) D S3
34 K:KT="N"&(K="-") ^(KNR) G 10
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 15.04.85 - 20 u 40