Index: cAB113.mac.rou
===================================================================
diff -u -r734 -r3542
--- cAB113.mac.rou	(.../cAB113.mac.rou)	(revision 734)
+++ cAB113.mac.rou	(.../cAB113.mac.rou)	(revision 3542)
@@ -1,45 +1,46 @@
-cAB113 ; BEHEER ^DMH ;%AB11 ; [ 03/30/00  5:16 PM ]
- ;
-T1 ;Nummer separator;Det. ;
-T2 ;Kolom separator ;
- ;
- ; Window & Titel
-1 S I=$G(^DMH(UQH,USH,0,"WIN")) I I="" S I="2\1\20\80\1"
-11 S $P(I,D)=2,$P(I,D,3)=20
-13 S J=I,I=$P($T(T1),U,3)_SW2
-19 D P^cA612($P(J,D),$P(J,D,2),$P(J,D,3),$P(J,D,4),$P(J,D,5),0,0,0,I,0,2,7,0,0)
- ;
- ; Pagina tonen
-2 K U2 S U2=$G(^DMH(UQH,USH,"DET",SW2,0,0))
-21 K C,RSM I $D(^DMH(UQH,USH,"DET",SW2)) M RSM=^DMH(UQH,USH,"DET",SW2) D
- . N S1,S2
- . S (S1,S2)=0 F  S S1=$O(RSM(S1)) Q:S1=""  S S2=S2+1,C(S2)=S1
- . F S1=1:1:S2 D
- .. W /CUP(1,$P(RSM(C(S1),1),D,2)),/SGR(7),$E($P(RSM(C(S1),0),D,QTU)_$J("",$P(RSM(C(S1),1),D,3)),1,$P(RSM(C(S1),1),D,3)),/SGR(27)
- . W /CUP(2,1),@F1 F S2=1:1:$L(U2,D) S S1=$P(U2,D,S2) I S1 W /CUP(2,S1),@USEP
- . S S1="....5....0" F S2=1:1:3 S S1=S1_S1
- . W /WWR(1),/CUP(4,1),$E(S1,1,$P(QW(QW),D,4)-2)
- . S S1=".........1" F S2=2:1:8 S S1=S1_$E(S1,1,9)_S2
- . W /CUP(3,1),$E(S1,1,$P(QW(QW),D,4)-2),/WWR(0)
-23 S ATL=$O(C(""),-1) I ATL S ATL=ATL-1
-25 I 'ATL S:$D(^DMH(UQH,USH,"DET",SW2)) ^(SW2,0,0)="" G YZ
-27 S U2=$P(U2,D,1,ATL)
- ;
- ; Separators
-3 F I=1:1:ATL W /CUP(4+I,2),$J(I,2)," ",/SGR(4),$P($T(T2),U,2),I,/SGR(24),/CUP(4+I,25),": ",$P(U2,D,I)
- ;
- ; Nummer element
-4 S R="U1\22\3\"_$P($T(T1),U,2)_"\\2\\$L(K)" D R0
-41 I K="-"!(K=",") S ^DMH(UQH,USH,"DET",SW2,0,0)=U2 G YZ
- ;
- ; Wijzigen rubriek
-5 S U1=+U1 I U1>ATL!'U1 G 4
-51 S I=$P(U2,D,U1),R="I\22\3\"_$P($T(T2),U,2)_U1_"\\2\\\\\\\1" D R0
-53 I K'="-",K'="," S $P(U2,D,U1)=K
-55 G 21
- ;
-YZ D C^cA612 Q
- ;
-R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
- ;
-ZZ ; 30.06.00 - 16 u 02 * V7.4
\ No newline at end of file
+cAB113	; BEHEER ^DMH ;%AB11 ; [ 03/29/01  9:26 AM ]
+	;
+T1	;Nummer separator;Det. ;
+T2	;Kolom separator ;
+	;
+	; Window & Titel
+1	S I=$G(^DMH(UQH,USH,0,"WIN")) I I="" S I="2\1\20\80\1"
+11	S $P(I,D)=2,$P(I,D,3)=20
+13	S J=I,I=$P($T(T1),U,3)_SW2
+19	D P^cA612($P(J,D),$P(J,D,2),$P(J,D,3),$P(J,D,4),$P(J,D,5),0,0,0,I,0,2,7,0,0)
+	;
+	; Pagina tonen
+2	K U2 S U2=$G(^DMH(UQH,USH,"DET",SW2,0,0))
+21	K C,RSM I $D(^DMH(UQH,USH,"DET",SW2)) M RSM=^DMH(UQH,USH,"DET",SW2) D
+	. N S1,S2
+	. S (S1,S2)=0 F  S S1=$O(RSM(S1)) Q:S1=""  S S2=S2+1,C(S2)=S1
+	. F S1=1:1:S2 D
+	.. W /CUP(1,$P(RSM(C(S1),1),D,2)),/SGR(7),$E($P(RSM(C(S1),0),D,QTU)_$J("",$P(RSM(C(S1),1),D,3)),1,$P(RSM(C(S1),1),D,3)),/SGR(27)
+	. W /CUP(2,1),@F1 F S2=1:1:$L(U2,D) S S1=$P(U2,D,S2) I S1 W /CUP(2,S1),@USEP
+	. S S1="....5....0" F S2=1:1:3 S S1=S1_S1
+	. W /WWR(1),/CUP(4,1),$E(S1,1,$P(QW(QW),D,4)-2)
+	. S S1=".........1" F S2=2:1:8 S S1=S1_$E(S1,1,9)_S2
+	. W /CUP(3,1),$E(S1,1,$P(QW(QW),D,4)-2),/WWR(0)
+23	S ATL=$O(C(""),-1) I ATL S ATL=ATL-1
+25	I 'ATL S:$D(^DMH(UQH,USH,"DET",SW2)) ^(SW2,0,0)="" G YZ
+27	S U2=$P(U2,D,1,ATL)
+	;
+	; Separators
+3	F I=1:1:ATL W /CUP(4+I,2),$J(I,2)," ",/SGR(4),$P($T(T2),U,2),I,/SGR(24),/CUP(4+I,25),": ",$P(U2,D,I)
+	;
+	; Nummer element
+4	S R="U1\22\3\"_$P($T(T1),U,2)_"\\2\\$L(K)" D R0
+41	I K="-"!(K=",") S ^DMH(UQH,USH,"DET",SW2,0,0)=U2 G YZ
+	;
+	; Wijzigen rubriek
+5	S U1=+U1 I U1>ATL!'U1 G 4
+51	S I=$P(U2,D,U1),R="I\22\3\"_$P($T(T2),U,2)_U1_"\\2\\\\\\\1" D R0
+53	I K'="-",K'="," S $P(U2,D,U1)=K
+55	G 21
+	;
+YZ	D C^cA612 Q
+	;
+R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
+	;
+ZZ	; 18.05.01 - 11 u 18 * V7.86
+