cANU304 ;Wijzigen lijn ;%ANU30 ; [ 10/10/96  4:13 PM ]
 G 1
 ;
T0 ;Wijzigen lijn ;
T1 ;Lijn ;
T2 ;xx[] = wijzigen rubriek xx   [] = bijvoegen rubriek   ;D[] = detail;.[] = vervolg;
T3 ;Vx[] = verwijderen rubriek;
T4 ;Te verwijderen rubriek;
T5 ;Verwijderen rubriek ;",[] = hernemen   V[] = DEFINITIEF verwijderen";
T6 ;Omschrijving                      Pos.;
T7 ;------------                      ----;Lengte : ;
 ;
T0F ;Modification ligne ;
T1F ;Ligne ;
T2F ;xx[] = modifier rubrique xx   [] = ajouter rubrique   ;D[] = détail;.[] = suite;
T3F ;Vx[] = annulation rubrique x;
T4F ;Rubrique à annuler;
T5F ;Annulation rubrique ;",[] = reprendre   V[] = annulation DEFINITIVE";
T6F ;Description                       Pos.;
T7F ;-----------                       ----;Longueur : ;
 ;
 ; tonen detail
1 W /CUP(1,1),/WCMD,/CUP(1,KMAX-$L(OM)-1),OM
10 W /CUP(2,6),$P($T(@("T6"_QT)),U,2),/CUP(3,6),$P($T(@("T7"_QT)),U,2) D
 . S J2=0 F UZB=1:1 Q:'$D(@UREF@(UZA,UZB))  S J2=J2+$L($$S2^cANU302(UZB))+(UZB>1)
 . S LEN=J2,J2=$P($T(@("T7"_QT)),U,3)_J2 W /CUP(2,KMAX-$L(J2)-1),/SGR(1),J2,/SGR(0)
11 S J2=1
13 S LN=LMIN+2 W /CUP(LN,1),/WCMD
15 F UZB=J2:1 Q:'$D(@UREF@(UZA,UZB))  D  S LN=LN+1 Q:LN>LMAX
 . W /CUP(LN,1),$J(UZB,3),". ",$$S2^cANU302(UZB)
 . W /CUP(LN,40),$J($L($$S2^cANU302(UZB)),3)
17 S SWV=0 I $D(@UREF@(UZA,UZB+1)) S SWV=1,J2=UZB
19 I '$D(@UREF@(UZA,1)) G YZ:K="-",3
 ;
 ; vraagstelling
2 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_(+UZA)_"\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 I UZB>1 S LEN=LEN+1
31 D ^cANU305 G 1
 ;
 ; wijzigen
4 I '$D(@UREF@(UZA,+K)) G 2
41 S UZB=+K,LEN=LEN-^(UZB,13) D ^cANU305 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 F  S UZB=$O(@UREF@(UZA,UZB)) Q:UZB=""  D
 . M @UREF@(UZA,UZB-1)=@UREF@(UZA,UZB) K @UREF@(UZA,UZB)
59 I $D(@UREF@(UZA)) G 1
 ;
 ; verwijderen lijn
6 S UZA=UZA+1 I $D(@UREF@(UZA)) M @UREF@(UZA-1)=@UREF@(UZA) K @UREF@(UZA) G 6
 ;
YZ K J2 G ^cANU301
 ;
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