cAB16 ;Beheer DMH; %AB11 [ 02/14/00  1:33 PM ]
 ;
T0 ; Beheer sortering ;
T1 ;Volgnummer   B-index   Bestandscode      B-index;
T2 ;Nummer element\"[] = nieuwe sortering   xxx[] = wijzigen sortering";
 ;
1 ;D O^cA612(2,1,20,80,1,0,0,1),T^cA612($P($T(@("T0"_QT)),U,2),0,1,1,0,0) ;10.03.00
 D P^cA612(2,1,20,80,1,0,0,1,$P($T(@("T0"_QT)),U,2),0,1,1,0,0)
11 D SCHRIJF
13 S R="NR\22\3\"_$P($T(@("T2"_QT)),U,2)_"\5\\K?.N!(""-""[K)" D R0 G YZ:K="-"
 I NR="" G 17
15 I '$D(^DMH(UQH,USH,"0","SORT",NR)) G 13      
17 D ^cAB17
19 G 11
 ;
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
SCHRIJF W /CUP(2,1),@F1  
 S DELV="/cDR(1),/cDR(3),/cDR(0)"
 S DELH="/cDR(1),/cDR(2),/cDR(0)"
 S KRUIS="/cDR(1),/cDR(12),/cDR(0)"
 S RIJ=3
 W /CUP(RIJ,12),/SGR(1),$P($T(@("T1"_QT)),U,2),/SGR(0),/WCMD
 D STREEP
 S RIJ=RIJ+1
 F I=12:1:61 W /CUP(RIJ,I),@DELH
 W /CUP(RIJ,23),@KRUIS
 W /CUP(RIJ,33),@KRUIS
 W /CUP(RIJ,51),@KRUIS
 S RIJ=RIJ+1 S I1=""
 F  S I1=$O(^DMH(UQH,USH,"0","SORT",I1)) Q:I1=""  D
 . W /CUP(RIJ,12),I1
 . W /CUP(RIJ,25),$P(^DMH(UQH,USH,"0","SORT",I1),D)
 . W /CUP(RIJ,35),$P(^(I1),D,2)
 . W /CUP(RIJ,53),$P(^(I1),D,3)
 . D STREEP
 . S RIJ=RIJ+1
SCHRIJFZ Q
 ;
 ;  Plaatsen van een streep tussen de verschillende kolommen
STREEP W /CUP(RIJ,23),@DELV
 W /CUP(RIJ,33),@DELV
 W /CUP(RIJ,51),@DELV
STREEPZ Q 
 ;
ZZ ; 10.04.00 - 11 u 03 * V7.3