cAB1211 ;Beheer barcodes; %AB1211 [ 10/31/00  5:14 PM ]
 ;
 G YZ
 ;
T0 ;Beheer DMC ;
T1 ;Index;
T2 ;Deze index werd reeds gebruikt;
T3 ;Er kunnen geen barcodes worden verwijderd;
T4 ;Volgnummer\"Volgnummer van de te verwijderen barcode";
T5 ;Verwijderen van barcode ;
T6 ;\"V[] = verwijderen   ,[] = hernemen";
T7 ;Er zijn nog geen barcodes;
 ;
 ;  Wijzigen van een bestaande barcode
S1 N BAR S $ZT="TRAP^cAN000"
S1A S BAR=$P($G(^DMC(UQC,USC,"DATA","BAR")),D,KEUZE)
S1B S R="BAR\22\3\"_$P($T(@("T1"_QT)),U,2)_"\\3\\$L(K)&((K?3N!(""-""[K)))\\\\\1" D R0 G S1Z:K="-"
S1C I BAR'=$P($G(^DMC(UQC,USC,"DATA","BAR")),D,KEUZE),(BSTRING[BAR) S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250) G S1B
S1D S $P(^DMC(UQC,USC,"DATA","BAR"),D,KEUZE)=BAR
S1Z Q
 ;
 ;  Toevoegen van een nieuwe barcode
S2 N BAR S $ZT="TRAP^cAN000"
S2A S R="BAR\22\3\"_$P($T(@("T1"_QT)),U,2)_"\\3\\$L(K)&((K?3N!(""-""[K)))\\\\\1" D R0 G S1Z:K="-"
S2B I BSTRING[BAR S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250) G S2A
S2C S $P(^DMC(UQC,USC,"DATA","BAR"),D,(NR+1))=BAR     
S2Z Q
 ;
 ;  Bepalen van het synoniem voor de barcodes
S3 N I1,I2,SYN S $ZT="TRAP^cAN000"
 I '$D(^DMC(UQC,USC,"DATA","BAR")) S K=$P($T(@("T7"_QT)),U,2) D TXT^cAFA1(250) G S3Z
S3A K ^TEMP(boot,$J+.03)
S3B F I1="0"
S3C F  S I1=$O(^DMC(UQC,USC,"SYN",I1)) Q:I1=""  D
 . S ^TEMP(boot,$J+.03,I1)=I1
 . S I2=0
 . F  S I2=$O(^DMC(UQC,USC,"SYN",I1,I2)) Q:I2=""!(I2="LAY")  D
 .. S $P(^TEMP(boot,$J+.03,I1),D,(I2+1))=$P($G(^DMC(UQC,USC,"SYN",I1,I2,"TAAL","N")),D,3)
S3D S BAR=$G(^DMC(UQC,USC,"DATA","BAR","SYN"))
S3E S SYN=$$^cANSYN("^DMC:SYN",16,BAR) I K="-" G S3Z
S3F S ^DMC(UQC,USC,"DATA","BAR","SYN")=SYN
S3Z K ^TEMP(boot,$J+.03) Q
 ;
 ;  Verwijderen van een barcode
S4 N VOLGNR,BAR S $ZT="TRAP^cAN000"
S4A I NR=0 S K=$P($T(@("T3"_QT)),U,2) D TXT^cAFA1(250) G S4Z
S4B S R="VOLGNR\22\3\"_$P($T(@("T4"_QT)),U,2)_"\2\\$L(K)&(((K?.N)&((K'<1)&(K'>NR)))!(""-""[K))" D R0 G S4Z:K="-"
S4C S BAR=$P($G(^DMC(UQC,USC,"DATA","BAR")),D,VOLGNR)     
S4D S R="VERWI\22\3\"_$P($T(@("T5"_QT)),U,2)_BAR_$P($T(@("T6"_QT)),U,2)_"\1\\$L(K)&("",V-""[K)\\\1" D R0
S4E I VERWI="-" G S4A
S4F I VERWI="," G S4Z
S4G I VERWI="V" D
 . I VOLGNR'=1,(VOLGNR'=NR) S ^DMC(UQC,USC,"DATA","BAR")=$P(BSTRING,D,1,(VOLGNR-1))_D_$P(BSTRING,D,(VOLGNR+1),$L(BSTRING,D))
 . I VOLGNR'=1,(VOLGNR=NR) S ^DMC(UQC,USC,"DATA","BAR")=$P(BSTRING,D,1,(VOLGNR-1))
 . I VOLGNR=1 S ^DMC(UQC,USC,"DATA","BAR")=$P(BSTRING,D,(VOLGNR+1),$L(BSTRING,D))
 . I $G(^DMC(UQC,USC,"DATA","BAR"))="" K ^DMC(UQC,USC,"DATA","BAR")
S4Z Q
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
ZZ ; 02.11.00 - 13 u 32 * V7.81