cAB13 ;Beheer ^DMM; %AB13 [ 12/28/00  3:18 PM ]
 ;
 G 1
 ;
T0 ; Beheer ^DMM;
T1 ;UQM\"<spatie>[] = synoniemen";
T2 ;UQM;
T3 ;USM\"<spatie>[] = synoniemen";
T4 ;USM;
T5 ;Input-karakter\"x[] = letter ingeven   nn[] = ascii-waarde";
T6 ;Index3   L   Commentaar N/F/D/E                              O   R   W  ;
 ;
T90 ;Nieuwe DMM; bestaat al ;
T91 ;Bevestiging\"[] = ok";
 ;
T0E ; Beheer ^DMM;
T1E ;UQM\"<spatie>[] = synoniemen";
T2E ;UQM;
T3E ;USM\"<spatie>[] = synoniemen";
T4E ;USM;
T5E ;Input-karakter\"x[] = letter ingeven   nn[] = ascii-waarde";
T6E ;Index3   L   Commentaar N/F/D/E                              O   R   W  ;
T90E ;Nieuwe DMM; bestaat al ;
T91E ;Bevestiging\"[] = ok";
 ;
 ;  Nieuwe DMM openen
OPEN D P^cA612(16,1,6,80,1,1,1,1,$P($T(T90),U,2),0,0,7,0,0)
OPEN1 S R="UQM\22\3\UQM\\8",$P(R,D,11)=1 D R0 G OPENZ:K="-"!(K=","),OPEN1:K=""
 W /CUP(2,2),@F6,"UQM",@F9,": ",UQM,@F1
OPEN2 S R="USM\22\3\USM\\28",$P(R,D,11)=1 D R0 G OPEN1:K="-"!(K=","),OPEN2:K=""
 W /CUP(3,2),@F6,"USM",@F9,": ",USM,@F1
 I $D(^DMM(UQM,USM)) S K=$ZR_$P($T(T90),U,3) D F1 G OPEN2
OPEN3 S R="K\22\3\"_$P($T(T91),U,2)_"\1" D R0 G OPEN2:K="-",OPEN1:K=",",OPEN3:$L(K)
 S NUI1=$TR($$DI^cAN000(USM,UQM)," ","-")
 S ^TEMP(boot,$J,NUI1)=UQM_D_USM_D_$NA(^DMM(UQM,USM))
OPENZ D C^cA612 Q
 ;
 ;  Opvragen van UQM, USM en input-karakter
1 N UQM,USM,INKAR,ASC,KAR,RIJ,TELLER S $ZT="TRAP^cAN000"
 ;  Openen venster
11 D B^cA612
12 D T^cA612($P($T(+1),U,2)_"["""_$ZU($ZV'["MSM"*5)_"""]",1,0,7,0,0)
 ;
 ; Index1 & Index2
 ;   Vraag ivm UQM         
 ;13       S R="UQM\22\3\"_$P($T(@("T1"_QT)),U,2)_"\15\\$L(K)\\\\\1\\\" D R0
 ;15       I K="-" G YZ
 ;17       I K=" " D ^cAN103("UQM",13,"DAM","^DMM_1")
 ;19       S UQM=$$UC^cAFA1(UQM)
 ;2         W /CUP(1,28),@F2,$P($T(@("T2"_QT)),U,2)_" : ",/SGR(1),UQM,/SGR(0),/WCMD
 ;  Vraag ivm USM
 ;21       S R="USM\22\3\"_$P($T(@("T3"_QT)),U,2)_"\15\\$L(K)\\\\\1\\\" D R0
 ;23       I K="-" G 13
 ;25       I K=" " D ^cAN103("USM",13,"DAM","^DMM_2")
 ;27       S USM=$$UC^cAFA1(USM)
 ;29       W /CUP(1,50),@F2,$P($T(@("T4"_QT)),U,2)_" : ",/SGR(1),USM,/SGR(0),/WCMD
 ;L +^DMM(UQM,USM):2 E  D TXT^cAFA1(14) G 21
 ;
 ; KO - 11.09.00
2 K ^TEMP(boot,$J) S (UQM,USM)=""
21 S UQM=$O(^DMM(UQM)) I UQM="" G 23
22 S USM=$O(^DMM(UQM,USM)) I USM="" G 21
 S K=$TR($$DI^cAN000(USM,UQM)," ","-")
 S A=$$MODULE()
 S ^TEMP(boot,$J,K)=UQM_D_USM_D_$NA(^DMM(UQM,USM))_D_A G 22
23 S TEMP=$$^cANSYN("^DMM",10,$G(TEMP)) I K="-" G YZ
 S K=^TEMP(boot,$J,K),UQM=$P(K,D),USM=$P(K,D,2)
 W /CUP(1,28),$P($T(@("T2"_QT)),U,2)," :",@F92,UQM,@F93,@F1
 W /CUP(1,50),$P($T(@("T2"_QT)),U,2)," :",@F92,USM,@F93,@F1
 L +^DMM(UQM,USM):2 E  S R=14 D F2 G 23
 ;
 ;  Vraag ivm input-karakter
3 D SCHRIJF
31 S R="INKAR\22\3\"_$P($T(@("T5"_QT)),U,2)_"\6\\((K?1.N.1""."".N)&(K'<65&(K'>91)))!(K=46)!(K?1.1U)!("".-""[K)\\\1" D R0
33 I K="-" W /CUP(2,1),@F1 L -^DMM(UQM,USM) G 23
35 I INKAR?1.N.1".".N D  
 . S ASC=INKAR
 . S KAR=$G(^DMM(UQM,USM,ASC,"0","1"))
 . I KAR="" S KAR=$C((INKAR\1))
37 I INKAR'?1.N.1".".N D      
 . S KAR=INKAR
 . S ASC=$A(KAR)
39 S ^DMM(UQM,USM,ASC,"0","1")=KAR      
 ;
9 D ^cAB130 I KEUZE="-" G 3
 ;
YZ D C^cA612 K TEMP,^TEMP(boot,$J) Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
 ;
MODULE() N R
 S I1=""
 F  S I1=$O(^DMM(UQM,USM,I1)) Q:I1=""  D
 . S R=$G(R)_$G(^DMM(UQM,USM,I1,"0","1"))_" "
MODULEZ Q R
 ;
 ;  Overzicht van de verschillende input-karakters
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 I1="" F TELLER=0:1 S I1=$O(^DMM(UQM,USM,I1)) Q:I1=""
 ; I TELLER<8 S RIJ=8
 ; I TELLER>7 S RIJ=3
 S RIJ=3
 W /CUP(RIJ,5),/SGR(1),$P($T(@("T6"_QT)),U,2),/SGR(0),/WCMD
 D STREEP
 S RIJ=RIJ+1
 F I=5:1:75 W /CUP(RIJ,I),@DELH
 W /CUP(RIJ,12),@KRUIS
 W /CUP(RIJ,16),@KRUIS
 W /CUP(RIJ,64),@KRUIS
 W /CUP(RIJ,68),@KRUIS
 W /CUP(RIJ,72),@KRUIS
 S RIJ=RIJ+1 S I1=""
 F  S I1=$O(^DMM(UQM,USM,I1)) Q:I1=""  D
 . S LETTER=$G(^DMM(UQM,USM,I1,"0","1"))
 . S COMT=$P($G(^DMM(UQM,USM,I1,"0","2")),D)_"/"_$P($G(^DMM(UQM,USM,I1,"0","2")),D,2)_"//"_$P($G(^DMM(UQM,USM,I1,"0","2")),D,4)
 . W /CUP(RIJ,5),I1
 . W /CUP(RIJ,14),LETTER
 . W /CUP(RIJ,18),$E(COMT,1,46)
 . I $D(^DMM(UQM,USM,I1,"O")) W /CUP(RIJ,66),"+"
 . I $D(^DMM(UQM,USM,I1,"R")) W /CUP(RIJ,70),"+"
 . I $D(^DMM(UQM,USM,I1,"W")) W /CUP(RIJ,74),"+"
 . D STREEP
 . S RIJ=RIJ+1
SCHRIJFZ Q
 ;
 ;  Plaatsen van een streep tussen de verschillende kolommen
STREEP W /CUP(RIJ,12),@DELV
 W /CUP(RIJ,16),@DELV
 W /CUP(RIJ,64),@DELV
 W /CUP(RIJ,68),@DELV
 W /CUP(RIJ,72),@DELV
STREEPZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84