cANU20	;Beheer listings ;%ANU20 ; [ 02/24/00  3:16 PM ]
	;
T0	;Beheer listings ;
T1	; Beheer listings ;
T3	;Keuze\" [] = lijnen en kolommen   V[] = verwijderen   W[] = wijzigen definitie         .[] = niveaus subtotalen   Y[] = kopiëren";
	;
T0F	;Gestion des listings ;
T1F	; Gestion des listings ;
T3F	;Choix\" [] = lignes et colonnes   V[] = annuler   W[] = modifier définition            .[] = niveaux des totaux   Y[] = copier";
	;
T0D	;Listenverwaltung ;
T1D	; Listenverwaltung ;
T3D	;Wahl\" [] = Linien und Kolumnen   V[] = löschen   W[] = ändern Definition             .[] = Niveaus Subtotalen    Y[] = kopieren";
	;
	; Titel + alg.init
1	D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T1"_QT)),U,2),0,0,7,1,1)
11	D DMS^cAN000("UQC","USC","LIS") G YZ:UQC=""!(USC=""),YZ:'$D(^DMC(UQC,USC))
13	S UREF=^(USC,"DATA","REF"),USL=D,SW3=1,SW1=0
15	S BEHEER=1 ; openen toegelaten
	;
	; Keuze listing
2	I SW1 L -@UREF S SW1=0
21	S UI1=$$^cANSYN("LIS") I K="-" G YZ
23	D R^cAN000 M A=B I $P(B(1),D,30)=2 G 2
	;
	; Gegevens tonen
3	D DMS^cAN000("UQC","USC","LIS") K UTOP X ^DMC(UQC,USC,"LOGGING","TOP")
31	W /CUP(2,3),/SGR(4),UTOP(1),/SGR(0),/CUP(2,15),": ",UTOP(1.1),@F1
33	I 'SW1 S SW1=1 L +@UREF:2 E  D BUSY^cAFA1 G 2
35	W /CUP(4,3),/SGR(4),UTOP(2),/SGR(0),/CUP(4,15),": ",UTOP(2.1)
	;
	; Beheer/Verwijderen/Wijzigen
4	D DMS^cAN000("UQC","USC","LIS") S UREF=^DMC(UQC,USC,"DATA","REF")
40	S R="KEU\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-.VWY""[K\\\1" D R0 G ^cANU200:".Y"[K,2:K="-"
41	I K="V" D V^cAN200("LIS",0,"","",$$IDEM^cAFA1) G 23
43	I K="W" D W^cAN200("LIS",0,"",0,$$IDEM^cAFA1) G 23
45	G 40
	;
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 22.06.04 - 16 u 32 * V8