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