cAB107 ; Beheer ^DMA ;%AB10 ; [ 11/20/98  10:45 AM ]
 ;
T1 ;Uw keuze;
T2 ;Beschikbare listings;
T3 ;1. Bestandsbeschrijving;
T4 ;2. Volledige detail per rubriek;
T5 ;3. Documentatie : bestandsbeschrijving -> ^DOC;
 ;
1 D O^cA612(2,1,20,80,1,1,0,0) ; algemene gegevens verbergen
11 W /CUP(1,2),/SGR(4),$P($T(T2),U,2),/SGR(24)," :"
13 F I=3:1 S J=$P($T(@("T"_I)),U,2) Q:J=""  W /CUP(I,2),J
15 I K="D" S KEU=3 G 3
 ;
2 S R="KEU\22\3\"_$P($T(T1),U,2)_"\\1\\K?.N&K!(K=""-"")" D R0 G YZ:K="-"
21 I K>3!'K G 2
 ;
3 I KEU'=3 D ^cAN3223("","1#4",80,0) G 2:K="-"
31 I KEU=1 D ^cAB1071 G YZ           ; bestandsbeschrijving
32 I KEU=2 D ^cAB1072 G YZ           ; volledige detail per rubriek
33 I KEU=3 D ^cAB1073 G YZ           ; bestandsbeschrijving -> ^DOC
 ;
YZ D C^cA612 G 6^cAB10
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 19.04.00 - 14 u 04 * V7.3