cAB1213 ;Beheer RK-waarden synoniemen; %AB1212 [ 11/09/00  4:02 PM ]
 ;
 G YZ
 ;
T0 ;Beheer ^DMC;
T1 ;Toevoegen RK-waarde;
T2 ;RK-waarde;
T3 ;RK-waarde werd reeds gebruikt;
T4 ;Hoofdprg/scroll\"0[] = hoofdprogramma   1[] = scroll";
T5 ;Bevestigen\".[] = OK   ,[] = hernemen";
 ;
 ;  Toevoegen van een nieuwe RK-waarde
TOEV N RKW,HPRSCH,EXE,BEVEST S $ZT="TRAP^cAN000"
 S RKW="",HPRSCR=0,EXE=""
 D P^cA612(15,0,7,80,1,0,1,0,$P($T(@("T1"_QT)),U,2),0,1,1,0,0)
 D RKSCH^cAB1212
TOEVA S R="RKW\22\3\"_$P($T(@("T2"_QT)),U,2)_"\\2\\K?.N!(""-""[K)\\\\\1" D R0 G TOEVZ:K="-"
 I $D(^DMC(UQC,USC,"SYN",0,0,RKW,0))&$D(^DMC(UQC,USC,"SYN",0,0,RKW,1)) S K=$P($T(@("T3"_QT)),U,2) D TXT^cAFA1(250) G TOEVA
 I $D(^DMC(UQC,USC,"SYN",0,0,RKW,0)) S HPRSCR=1 D RKSCH^cAB1212 G TOEVC
 I $D(^DMC(UQC,USC,"SYN",0,0,RKW,1)) S HPRSCR=0 D RKSCH^cAB1212 G TOEVC
 D RKSCH^cAB1212
TOEVB S R="HPRSCR\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\(""01-""[K)\\\\\1" D R0 G TOEVA:K="-"
 D RKSCH^cAB1212
TOEVC S EXE=$$I^cAB1(EXE,"Xecute")            
 I K="-"&($D(^DMC(UQC,USC,"SYN",0,0,RKW,0))!($D(^DMC(UQC,USC,"SYN",0,0,RKW,1)))) G TOEVA
 I K="-"&('$D(^DMC(UQC,USC,"SYN",0,0,RKW,0))&($D(^DMC(UQC,USC,"SYN",0,0,RKW,1)))) G TOEVB
 D RKSCH^cAB1212
 S R="BEVEST\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\$L(K)&("".,-""[K)" D R0 G TOEVC:K="-"
 I BEVEST="," G TOEVZ
 I BEVEST="." S ^DMC(UQC,USC,"SYN",0,0,RKW,HPRSCR)=EXE  
TOEVZ D C^cA612 Q
 ;
YZ Q      
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
ZZ ; 21.11.00 - 16 u 45 * V7.82