cPE99 ;OPZETTEN MENU PRODUKTEN ;%PE99;
 G 1
 ;
T1 ;BA("MENU",;) BESTAAT REEDS !!  [] = ok 
T2 ;MENU PRODUKTEN NIET OPGEZET  [] = ok 
T3 ;0;22;PRODUKTENPROGRAMMA'S\5\43\22\M\22\\\\
T4 ;22;0;22. PRODUKTENPROGRAMMA'S\2\3\22\3\0
T5 ;22;1;OPENEN PRODUKTEN\4\3\^cPE10\D\^cPE10\\\\
T6 ;22;2;WIJZIGEN PRODUKTEN\5\3\^cPE30\D\^cPE30\\\\
T7 ;22;3;RAADPLEGEN PRODUKTEN\6\3\^cPE20\D\^cPE20\\\\
T8 ;22;4;VERWIJDEREN PRODUKTEN\7\3\^cPE40\D\^cPE40\\\\
T9 ;22;5;KONTROLELIJST PRODUKTEN\8\3\^cPE8\D\^cPE8\\\\
T10 ;22;6;PRODUKTENLIJST\10\3\^cPE5\D\^cPE5\\\\
T11 ;22;7;BEHEER KLASSIFIKATIES - MERKEN\11\3\25\M\25\\\\
T12 ;22;8;INBOEKEN BEGINSTOCK\12\3\^cPE45\D\^cPE45\\\\
T13 ;22;9;STOCKWIJZIGINGEN\13\3\^cPE50\D\^cPE50\\\\
T14 ;22;10;PRODUKTENFICHE\14\3\^cPE175\D\^cPE175\\\\
T15 ;22;11;VERWIJDEREN HISTORIEKEN\15\3\^cPE78\D\^cPE78\\\\
T16 ;22;12;VERWIJDEREN STATISTIEKEN\16\3\^cPE79\D\^cPE79\\\\
T17 ;22;23;INVENTARISLIJST\6\43\^cPE141\D\^cPE141\\\\
T18 ;25;0;22.7. BEHEER KLASSIFIKATIES - MERKEN\2\3\22\3\22
T19 ;25;1;OPENEN KLASSIF. - MERKEN\4\3\^cPE1\D\^cPE1\\\\
T20 ;25;2;WIJZIGEN KLASSIF. - MERKEN\5\3\^cPE14\D\^cPE14\\\\
T21 ;25;3;RAADPLEGEN KLASSIF. - MERKEN\6\3\^cPE2\D\^cPE2\\\\
T22 ;25;4;VERWIJDEREN KLASSIF. - MERKEN\7\3\^cPE3\D\^cPE3\\\\
T23 ;25;5;LIJST KLASSIF. - MERKEN\8\3\^cPE4\D\^cPE4\\\\
T24 ;25;6;INDELING PRODUKTEN\9\3\^cPE7\D\^cPE7\\\\
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S I1=$P($T(T1),"""",2),SW=0,T=2
13 S T=T+1,K=$T(@("T"_T)) G 2:'$L(K) S I2=$P(K,U,2),I3=$P(K,U,3) G 13:'$D(@("^"_Q_"BA(I1,I2,I3)"))
15 S K=^(I3) I I3=0 W @F11,@F1 S FP=$P(K,D,2)*100+$P(K,D,3)-1 W @F,@F4,$P(K,D,1)," ",QN," ",@F5 G 19
17 S FP=$P(K,D,2)*100+$P(K,D,3) W @F,$J(I3,2),". ",$P(K,D,1)
19 S SW=1,K=$T(T1),FP=2403 W @F,@F2,@F4,"^",Q,$P(K,U,2),I2,",",I3,$P(K,U,3),@F5,@F0 R K G 13
 ;
2 I SW S FP=2403 W @F,@F2,@F4,$P($T(T2),U,2),@F5,@F0 R K G YZ
21 S T=2
23 S T=T+1,K=$T(@("T"_T)) G 3:'$L(K) S I2=$P(K,U,2),I3=$P(K,U,3),K=$P(K,U,4),@("^"_Q_"BA(I1,I2,I3)")=K
25 I I3=0 W @F11,@F1 S FP=$P(K,D,2)*100+$P(K,D,3)-1 W @F,@F4,$P(K,D,1)," ",QN," ",@F5 G 23
27 S FP=$P(K,D,2)*100+$P(K,D,3) W @F,$J(I3,2),". ",$P(K,D,1) G 23
 ;
3 S QM=0 D ^cA508
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 12.10.88 - 14 u 11