cANU10 ;Beheer selecties ;%ANU10 ; [ 02/24/00  11:05 AM ]
 ;
T0 ;Beheer selecties ;
T1 ; Beheer selecties ;
T2 ;;;Volgorde;
T3 ;Keuze\" [] = criteria   V[] = verwijderen   W[] = wijzigen definitie                   Y[] = kopiëren   .[] = sortering";
T4 ;Deze selectie werd nog niet uitgevoerd!;Deze selectie werd reeds uitgevoerd.;
T5 ;Begin : ;Einde : ;Geselecteerd : ;
 ;
T0F ;Gestion des sélections ;
T1F ; Gestion des sélections ;
T2F ;;;Ordre;
T3F ;Choix\" [] = critères   V[] = annuler   W[] = modifier définition                      Y[] = copier     .[] = triage";
T4F ;Cette sélection n'a pas encore été executée!;Cette sélection a déja été exécutée.;
T5F ;Début : ;Fin   : ;Nombre sélectionné : ;
 ;
 ; 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","SEL") 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 selectie
2 I SW1 L -@UREF S SW1=0
21 S UI1=$$^cANSYN("SEL") 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","SEL") 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)
37 S I=$P(B(1),D,2),J=$P(^DMS(Q,I),D,2),I=$P(^(I),D) D
 . W /CUP(5,3),/SGR(4),$P($T(@("T2"_QT)),U,4),/SGR(0),/CUP(5,15),": ",$P(^DMC(I,J,"INDEX",$P(B(1),D,3),"TAAL",$E(QT_"N")),D)
39 S I=''$P(B(1),D,5) W /CUP(7,3),$P($T(@("T4"_QT)),U,2+I) I I D
 . W /CUP(9,3),$P($T(@("T5"_QT)),U,2),$$HD^cAFA1($P(B(1),D,4))," - ",$$HT^cAFA1($P(B(1),D,4),1)
 . W /CUP(10,3),$P($T(@("T5"_QT)),U,3),$$HD^cAFA1($P(B(1),D,5))," - ",$$HT^cAFA1($P(B(1),D,5),1)
 . W /CUP(11,3),$P($T(@("T5"_QT)),U,4),$P(B(1),D,6)," / ",$P(B(1),D,7)
 ;
 ; Beheer/Verwijderen/Wijzigen
4 D DMS^cAN000("UQC","USC","SEL") 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 ^cANU100:".Y"[K,2:K="-"
41 I K="V" D V^cAN200("SEL",0,"","",$$IDEM^cAFA1) G 23
43 I K="W" D W^cAN200("SEL",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 ; 13.03.00 - 17 u 31 * V7.3