cA219 ;LIJSTEN BESTANDEN : ;%A215; [ 04/12/00   9:06 AM ]
 G 1
 ;
T0 ;Lijsten bestanden : ;
T1 ;\listing per veld\blanco lijsten\listing per rubriek\positionering rubrieken\index rubrieken\index bestand\;
T2 ;\-----------------------------------------------------------------------------------------------------------------------------------;
T101 ;Omschrijving;
T102 ;Lijnnummer omschr.;
T103 ;Kolomnr. omschr.(2 of 49);
T104 ;Voorw. niet ingelezen;
T105 ;Lijnnr. input (idem 2);
T106 ;Kolnr. input (19 of 67);
T107 ;Waar autom. input;
T108 ;Wat geprint i.p.v. input;
T109 ;Max. lengte zone;
T110 ;Commentaar;
T111 ;Voorwaarden;
T112 ;Code niet wijzigbaar;
T113 ;Extra posities vegen;
T114 ;Voorw.inp.ingelezen uit 7;
T115 ;Conditie niet wijzigbaar;
T116 ;Index b;
T117 ;Execute ipv man. inp. met ok;
T118 ;Voorwaarde input via 17;
T119 ;Execute ipv manuele input;
T120 ;Voorwaarde input via 19;
T121 ;Controle in label;
T122 ;Nummer tonen (""=niet);
T123 ;Omschrijving tonen (="");
 ;
T0F ;Listes Fichiers   : ;
T1F ;\listing per veld\blanco lijsten\listing per rubriek\positionering rubrieken\index rubrieken\index bestand\;
T2F ;\-----------------------------------------------------------------------------------------------------------------------------------;
T101F ;Omschrijving;
T102F ;Lijnnummer omschr.;
T103F ;Kolomnr. omschr.(2 of 49);
T104F ;Voorw. niet ingelezen;
T105F ;Lijnnr. input (idem 2);
T106F ;Kolnr. input (19 of 67);
T107F ;Waar autom. input;
T108F ;Wat geprint i.p.v. input;
T109F ;Max. lengte zone;
T110F ;Commentaar;
T111F ;Voorwaarden;
T112F ;Code niet wijzigbaar;
T113F ;Extra posities vegen;
T114F ;Voorw.inp.ingelezen uit 7;
T115F ;Conditie niet wijzigbaar;
T116F ;Index b;
T117F ;Execute ipv man. inp. met ok;
T118F ;Voorwaarde input via 17;
T119F ;Execute ipv manuele input;
T120F ;Voorwaarde input via 19;
T121F ;Kontrole in label;
T122F ;Nummer tonen (""=niet);
T123F ;Omschrijving tonen (="");
 ;
T0E ;Lijsten bestanden : ;
T1E ;\listing per veld\blanco lijsten\listing per rubriek\positionering rubrieken\index rubrieken\index bestand\;
T2E ;\-----------------------------------------------------------------------------------------------------------------------------------;
T101E ;Omschrijving;
T102E ;Lijnnummer omschr.;
T103E ;Kolomnr. omschr.(2 of 49);
T104E ;Voorw. niet ingelezen;
T105E ;Lijnnr. input (idem 2);
T106E ;Kolnr. input (19 of 67);
T107E ;Waar autom. input;
T108E ;Wat geprint i.p.v. input;
T109E ;Max. lengte zone;
T110E ;Commentaar;
T111E ;Voorwaarden;
T112E ;Code niet wijzigbaar;
T113E ;Extra posities vegen;
T114E ;Voorw.inp.ingelezen uit 7;
T115E ;Conditie niet wijzigbaar;
T116E ;Index b;
T117E ;Execute ipv man. inp. met ok;
T118E ;Voorwaarde input via 17;
T119E ;Execute ipv manuele input;
T120E ;Voorwaarde input via 19;
T121E ;Controle in label;
T122E ;Nummer tonen (""=niet);
T123E ;Omschrijving tonen (="");
 ;
S1 X F70 W @F80,! S I2=99,@("C="_N_"0)"),Y1=0,C=$P(N,"(",1)_" = "_C F K=0,1 W ?3,@F85,"BESTAND : ",$E($P(C,U,1),1,23),@F83,$$CR^cA334
S1Z W ?70,DT,!,?3,"versie ",$P(C,U,2),?71,TD,! Q
 ;
S2 W $J($P(K,U,16)/100,8,2),?20,$E($P(K,U),1,48),?70,$J($P(K,U,9),3) Q
 ;
1 S FP=279 W @F61,@F11,@F1,@F,@F5 S FP=202,K=" GLOBAL "_N_"...) " W @F,@F4,$P($T(@("T0"_QT)),U,2),$E($P(@(N_"0)"),U,1)_" ",1,35)
11 S FP=278-$L(K) W @F,K,@F5 S FP=303 W @F,"versie ",$P(^(0),U,2) F I=1:1:6 S FP=I*100+603 W @F,I,". ",$P($T(@("T1"_QT)),D,I+1)
15 S FP=2203+F60 W @F,"KEUZE : ",!,?2,"-[] = einde lijsten",@F2
19 S FP=2211+F60 W @F,".",@F2,@F,@F0 R K G YZ:K="-",19:$L(K)'=1,19:K>6!'K,@(K+1)
 ;
2 D S1 S Y1=1
21 W !,Y1,". ",$P($T(@("T"_(Y1+100)_QT)),U,2,999),!,"==============================="
22 S @("I2=$O("_N_"I2))") G 23:I2="" S A=^(I2),A=$P(A,U,Y1) W !,I2,". ",$P(^(I2),U,1),?30,": ",A G 22
23 S I2=100,Y1=Y1+1 H 3 W $$FF^cA334 G 25:Y1>AV,21
25 W $$FF^cA334 X F71 G 1
 ;
3 W @F11,@F1,!,"AANTAL RUBRIEKEN  -[] = menu : ",@F0 R RB G 1:RB="-",3:RB?.E1C.E!(RB<1) D S1 F K=1:1:RB\5+(RB#5*1) D 32 W $$FF^cA334
31 X F71 G 1
32 F I=1:1:AV S A=$P($T(@("T"_(I+100)_QT)),U,2,99),J=I S:J<10 J=" "_J W !,$P($T(@("T2"_QT)),D,2),!,J,".",A F Y=30:20:130 W ?Y,"!"
33 W !,$P($T(@("T2"_QT)),D,2) Q
 ;
4 D S1
41 S I2=$O(^(I2)) G 43:I2="" S C=^(I2) W !,I2,". ",$P(C,U,1),!,$E($T(@("T2"_QT)),6,43) F I=1:1:AV D 45 W $P(C,U,I)
42 W !! S Y1=Y1+1 W:Y1#2=0 $$FF^cA334 G 41
43 W $$FF^cA334 X F71 G 1
45 S Z="T"_(I+100),A=$T(@Z),A=$P(A,U,2,999),J=I S:J<10 J=" "_J W !,J," : ",A,?36,": " Q
 ;
5 D S1 W !,"INDEX",?8,"OMSCHRIJVING",?34,"LIJNNUMMER",?52,"KOLOMNUMMER",?70,"VOORWAARDE",?88,"LIJNNUMMER",?106,"KOLOMNUMMER",?127,"INDEX"
51 W !,"  A",?34,"OMSCHRIJVING",?52,"OMSCHRIJVING",?70,"NIET INGELEZEN",?88,"INPUT",?106,"INPUT",?127,"  B"
53 W !,$P($T(@("T2"_QT)),D,2),!
54 S I2=$O(^(I2)) G 55:I2="" S C=^(I2),Y=22 W !,I2,?8,$P(C,U,1) F I=2:1:6,16 S Y=Y+18 W ?Y-($L($P(C,U,I))/2),$P(C,U,I)
55 G 54:I2>0 W $$FF^cA334 X F71 G 1
 ;
6 D S1 W !,?7,"Index",?20,"Omschrijving",?69,"lengte",!,$E($P($T(@("T2"_QT)),D,2),1,78),!
64 S K=$O(^(I2)) I K'="" W:I2\100'=(K\100) ! S I2=K,K=^(I2) W !,$J(I2/100,8,2) D S2 G 64
65 W $$FF^cA334 X F71 G 1
 ;
7 K ^HULP(boot,$J) S Y1=0,T=0 D S1 W !,?7,"Index",?20,"Omschrijving",?69,"lengte",!,$E($P($T(@("T2"_QT)),D,2),1,78)
71 S I2=$O(@(N_I2_")")) I I2'="" S K=^(I2),^HULP(boot,$J,$P(K,U,16))=K G 71
72 S I2=$O(^HULP(boot,$J,I2)) G 74:I2="" I I2\100-Y1 W:T !?69,"-----",!?69,$J(T,4),! S T=0 
73 S Y1=I2\100,K=^(I2),T=T+$P(K,U,9) W !,?7 D S2 G 72
74 W !?69,"-----",!?69,$J(T,4),$$FF^cA334 X F71 K ^HULP(boot,$J) G 1
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84