cAB110 ; BEHEER ^DMH ;%AB11 ; [ 04/28/00  12:22 PM ]
 ;
T1 ;Nummer kolom;Det. ;
T2 ; [] = autom. nummer   .x[] = detail x   S[] = beheer separators;
T3 ;B[] = buitenduwen      Y[] = kopiëren   V[] = verwijderen kolom;
 ;
 ; Window & Titel
1 D O^cA612(2,1,20,80,0,1,0,0) ; algemene gegevens verbergen
11 S I=$G(^DMH(UQH,USH,0,"WIN")) I $L(I) D  S ^("WIN")=$P(I,D,1,8)
 . F J=1:1:8 S $P(I,D,J)=+$P(I,D,J)
13 S J=I I J="" S J="2\1\20\80\1"
15 S 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 I SW4<1 S SW4=1
21 S USCR=$G(^DMH(UQH,USH,0,"SCR")),USEP=$G(^("SEP")),UPNT="",$P(UPNT,"*",80)="*" D
 . I USEP="" S USEP="$C(63)"                       ; vraagteken
 . I USEP="$C(32)" S USEP="/SGR(1),$C(95),/SGR(0)" ; underscore
23 F I=USCR-1:1:$P(USCR,D,2) W /CUP(I,1),/WCML
25 K C,RSM I $D(^DMH(UQH,USH,"DET",SW2)) M RSM=^DMH(UQH,USH,"DET",SW2) D
 . N S1,S2
 . S S1="....5....0" F S2=1:1:3 S S1=S1_S1
 . W /WWR(1),/CUP($P(USCR,D,2),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($P(USCR,D,2)-1,1),$E(S1,1,$P(QW(QW),D,4)-2),/WWR(0)
 . 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(USCR-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(USCR,$P(RSM(C(S1),1),D,2)),S1
 .. F K=USCR+1:1:$P(USCR,D,2)-2 W /CUP(K,$P(RSM(C(S1),1),D,2)),$E(UPNT,1,$P(RSM(C(S1),1),D,3))
 . F S2=1:1:$L(RSM(0,0),D) S S1=$P(RSM(0,0),D,S2) I S1 W /CUP(USCR-1,S1),@USEP
 ;
 ; Nummer element
3 S R="U1\22\3\"_$P($T(T1),U,2)_"\S1\2\\\\\1\\\1" D R0
31 I RK=25 S:SW2=1 K="-" S:SW2>1 (K,U1)="."_(SW2-1) G 37
33 I RK=26 S (K,U1)="."_(SW2+1) G 37
35 I RK'=28 G 3
37 G YZ:K="-"!(K=",")
 ;
 ; Welke funktie
4 I $E(K)="." S K=+$E(K,2,9) G 3:K-1>SW4!'K S SW2=K D C^cA612 G 11 ; det.
41 ;I K="B" D ^cAB115 G 2                                   ; buitenduwen
43 ;I K="Y" D ^cAB116 G 2                                   ; kopiëren
45 ;I K="V" D ^cAB114 G 2                                   ; verwijderen
47 I K="S" D ^cAB113 G 2                                   ; separators
49 I K="" D ^cAB111 G 2                                    ; openen
 ;
 ; Wijzigen rubriek
5 S U1=+U1 I '$D(C(U1)) G 3
51 K U2 M U2=^DMH(UQH,USH,"DET",SW2,C(U1)) D ^cAB112
53 M ^DMH(UQH,USH,"DET",SW2,C(U1))=U2 G 2
 ;
YZ D C^cA612,C^cA612 G 6^cAB11
 ;
 ; commentaar
S1 W !?2,$P($T(T2),U,2),!?2,$P($T(T3),U,2)
S1Z 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