cANU106 ;Beheer sortering ;%ANU10 ; [ 10/10/96  3:54 PM ]
 G 1
 ;
T0 ;Beheer sortering ;
T1 ;Sortering;
T2 ;xx[] = wijzigen criterium xx   [] = bijvoegen criterium   ;D[] = detail;.[] = vervolg;
T3 ;Vx[] = verwijderen criterium;
T4 ;Te verwijderen criterium;
T5 ;Verwijderen criterium ;",[] = hernemen   V[] = DEFINITIEF verwijderen";
 ;
T0F ;Gestion triage ;
T1F ;Triage;
T2F ;xx[] = modifier critère xx   [] = ajouter un critère   ;D[] = détail;.[] = suite;
T3F ;Vx[] = annulation critère x;
T4F ;Critère à annuler;
T5F ;Annulation critère ;",[] = reprendre   V[] = annulation DEFINITIVE";
 ;
 ; tonen detail
1 W /CUP(1,1),/WCMD,/CUP(1,KMAX-$L(OM)-1),OM
11 S J2=1,UZA="SORT"
13 S LN=LMIN
15 F UZB=J2:1 Q:'$D(@UREF@(UZA,UZB))  D  Q:LN+1>LMAX
 . W /CUP(LN,1),$J(UZB,3),". ",$$S2^cANU107(UZB) S LN=LN+1
 . W /CUP(LN,6),$$S1^cANU107 S LN=LN+1
17 S SWV=0 I $D(@UREF@(UZA,UZB+1)) S SWV=1,J2=UZB
 ;
 ; vraagstelling
2 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\C1\3\INPUT\\\\1" D R0
21 G YZ:K="-"!(K=","),11:K="D",13:K=".",3:K="",4:K,5:$E(K)="V",2
 ;
 ; openen
3 S UZB=$O(@UREF@(UZA,""),-1)+1
31 D ^cANU108 G 1
 ;
 ; wijzigen
4 I '$D(@UREF@(UZA,+K)) G 2
41 S UZB=+K D ^cANU108 G 1
 ;
 ; verwijderen
5 S K=+$E(K,2,3)
51 I '$D(@UREF@(UZA,+K)) S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\2\\K=""-""!(K="","")!(K?.N)" D R0 G 2:K="-"!(K=","),51
53 S UZB=+K,R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_UZB_D_$P($T(@("T5"_QT)),U,3)_"\1\\""-,V""[K&$L(K)\\\1" D R0 I K'="V" S (UZB,SWV)=0 G 51
55 K @UREF@(UZA,UZB)
57 S UZB=UZB+1 I $D(@UREF@(UZA,UZB)) M @UREF@(UZA,UZB-1)=@UREF@(UZA,UZB) K @UREF@(UZA,UZB) G 57
59 G 1
 ;
YZ K J2 G ^cANU101
 ;
C1 W !?2,$P($T(@("T2"_QT)),U,2),$P($T(@("T2"_QT)),U,3+SWV),!?2,$P($T(@("T3"_QT)),U,2) Q
 ;
INPUT ;K="-"!(K=",")!(K="D")!(K="."&SWV)!(K?.N)!(K?1"V".N)
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 10.10.96 - 17 u 03 * V6.2.05