cAB123 ;Prg dat modules uitvoert; %AB121 [ 12/28/00  12:12 PM ]
 ;
 G YZ
 ;
T0 ;Beheer DMC ;
T1 ; Beheer indexen;
T3 ;Volgnummer;
T4 ;Beheer multiples;
T7 ;Beheer synoniemen;
T14 ;"[] = toevoegen   V[] = verwijderen    M[] = index verplaatsen   Y[] kopiëren"
T15 ;"[] = multiple toevoegen   V[] = multiple verwijderen"
T16 ;" [] = toevoegen   V[] = verwijderen   M[] = verplaatsen   Y[] = kopiëren        L[] = layout      R[] = RK-waarden    D[] = def. waarde volgnr. syn.";
T18 ;Beheer executes;
T20 ;Nummer element;
T21 ;Xecute(s) bij <F2>;
T22 ;Xecute(s) bij <ENTER>;
T23 ;Xecute(s) bij <DEL>;
T24 ;Xecute(s) bij ^E;
T25 ;Kopiëren synoniem;
T26 ;Kopiëren index;
T27 ; Beheer links;
T28 ;"[] = toevoegen   V[] = verwijderen";
T29 ;INDEX\"[] = INDEX   1[] = INDEX 2";
T30 ;Beheer barcodes;
T31 ;"[] = toevoegen   S[] = synoniemen voor barcodes   V[] = verwijderen";
T32 ;Synoniem;
 ;
T0E ;Beheer DMC ;
T1E ; Beheer indexen;
T3E ;Volgnummer;
T4E ;Beheer multiples;
T7E ;Beheer synoniemen;
T14E ;"[] = toevoegen   V[] = verwijderen    M[] = index verplaatsen   Y[] kopiëren"
T15E ;"[] = multiple toevoegen   V[] = multiple verwijderen"
T16E ;" [] = toevoegen   V[] = verwijderen   M[] = verplaatsen   Y[] = kopiëren        L[] = layout      R[] = RK-waarden    D[] = def. waarde volgnr. syn.";
T18E ;Beheer executes;
T20E ;Nummer element;
T21E ;Xecute(s) bij <F2>;
T22E ;Xecute(s) bij <ENTER>;
T23E ;Xecute(s) bij <DEL>;
T24E ;Xecute(s) bij ^E;
T25E ;Kopiëren synoniem;
T26E ;Kopiëren index;
T27E ; Beheer links;
T28E ;"[] = toevoegen   V[] = verwijderen";
T29E ;INDEX\"[] = INDEX   1[] = INDEX 2";
T30E ;Beheer barcodes;
T31E ;"[] = toevoegen   S[] = synoniemen voor barcodes   V[] = verwijderen";
T32E ;Synoniem;
 ;
 ;  Beheer indexen
S15 N I1,NR,INDEXEN,ITAB,KEUZE,SWIND S $ZT="TRAP^cAN000"
 I $G(INDEX2)="<undef>" S SWIND="" G S15A
 S R="SWIND\22\3\"_$P($T(@("T29"_QT)),U,2)_"\1\\""1-""[K" D R0 G S15Z:K="-"
S15A D P^cA612(2,1,20,80,1,0,0,1,$P($T(@("T1"_QT)),U,2)_" "_$S(SWIND="":"1",1:"2"),0,1,1,0,0)
S15B D TOONI(UQC,USC,"ITAB","INDEX"_$S(SWIND=1:2,1:""))    
S15C S R="KEUZE\22\3\"_$P($T(@("T3"_QT)),U,2)_D_$P($T(@("T14"_QT)),U,2)_"\2\\(K?.N&(K'<1)&(K'>NR))!(""VMY-""[K)\\\1" D R0 G S15Y:K="-"
S15D I K="" D S2^cAB124("INDEX"_$S(SWIND=1:2,1:"")) G S15B
S15E I K="V" D S3^cAB124("INDEX"_$S(SWIND=1:2,1:"")) G S15B
S15F I K="M" D S4^cAB124("INDEX"_$S(SWIND=1:2,1:"")) G S15B
S15G I K="Y" W /CUP(1,59),/SGR(1),$P($T(@("T26"_QT)),U,2),/SGR(0) D S5^cAB124("INDEX"_$S(SWIND=1:2,1:"")) W /CUP(1,59),@F2 G S15B
S15H I KEUZE?1.N&(KEUZE<(NR+1)) D S1^cAB124("INDEX"_$S(SWIND=1:2,1:"")) G S15B
S15Y D C^cA612
S15Z Q
 ;
 ;  Beheer multiples
S16 D P^cA612(2,1,20,80,1,0,0,1,$P($T(@("T4"_QT)),U,2),0,1,1,0,0)
S16A N NR,CODE,CODES,INDEXEN,INDEX,I1,I2,KEUZE,MTAB S $ZT="TRAP^cAN000"
S16B D TOONM(UQC,USC,"MTAB")
S16C S R="KEUZE\22\3\"_$P($T(@("T3"_QT)),U,2)_D_$P($T(@("T15"_QT)),U,2)_"\2\\(K?.N&(K'<1)&(K'>NR))!(""V-""[K)\\\1" D R0 G S16Z:K="-"
S16D I K="" D S2^cAB125 G S16A
S16E I K="V" D S3^cAB125 G S16A
S16F I KEUZE<(NR+1) D S1^cAB125 G S16A
S16Z D C^cA612 Q
 ;
 ;  Beheer barcodes
S17 D P^cA612(2,1,20,80,1,0,0,1,$P($T(@("T30"_QT)),U,2),0,1,1,0,0)   
S17A N NR,BAR,I1,LEN,BSTRING S $ZT="TRAP^cAN000"
S17B D TOONB(UQC,USC,"BTAB")
S17C S R="KEUZE\22\3\"_$P($T(@("T3"_QT)),U,2)_D_$P($T(@("T31"_QT)),U,2)_"\2\\(K?.N&(K'<1)&(K'>NR))!(""VS-""[K)\\\1" D R0 G S17Z:K="-"
S17D I K="" D S2^cAB1211 G S17A
S17E I K="S" D S3^cAB1211 G S17A
S17F I K="V" D S4^cAB1211 G S17A
S17G I KEUZE<(NR+1) D S1^cAB1211 G S17A
S17Z D C^cA612 Q
 ;
 ;  Beheer synoniemen
S18 D P^cA612(2,1,20,80,1,0,0,1,$P($T(@("T7"_QT)),U,2),0,1,1,0,0)
S18A N NR,I1,I2,MTAB,TEKST,BINDEX,KEUZE S $ZT="TRAP^cAN000"
S18B D TOON(UQC,USC,"MTAB") 
S18C S R="KEUZE\22\3\"_$P($T(@("T3"_QT)),U,2)_D_$P($T(@("T16"_QT)),U,2)_"\2\\(K?.N&(K'<1)&(K'>NR))!(""LVMDYR-""[K)\\\1" D R0 G S18Z:K="-"
S18D I K="" D S2^cAB127 G S18A
S18E I K="M" D S3^cAB128 G S18A
S18F I K="Y" W /CUP(1,59),/SGR(1),$P($T(@("T25"_QT)),U,2),/SGR(0) D S4^cAB128 W /CUP(1,59),@F2 G S18A
S18G I K="V" D S5^cAB128 G S18A    
S18H I K="L" D LAY^cAB127(0,0) G S18A
S18I I K="D" D S6^cAB128 G S18A
S18J I K="R" D S7^cAB1212 G S18A
S18K I KEUZE<(NR+1) D S1^cAB126 G S18A
S18Z D C^cA612 Q
 ;
 ;  Beheer executes
S20 N MTAB S $ZT="TRAP^cAN000"
S20A S MTAB(1)=2_D_0 S MTAB(2)=2_D_1 S MTAB(3)=28_D_0 S MTAB(4)=28_D_1    
S20B S MTAB(5)=22_D_0 S MTAB(6)=22_D_1 S MTAB(7)=69_D_0 S MTAB(8)=69_D_1
S20C D P^cA612(2,1,20,80,1,0,0,1,$P($T(@("T18"_QT)),U,2),0,1,1,0,0)
S20D D SCHRIJF
S20E S R="KEUZE\22\3\"_$P($T(@("T20"_QT)),U,2)_"\\2\\$L(K)&((K?.N&(K'<1)&(K'>8))!(""-""[K))" D R0 G S20Z:K="-"
S20F D S1^cAB129 G S20D
S20Z D C^cA612 Q
 ;
 ;  Beheer links
S22 N MTAB,CODE,BINDEX S $ZT="TRAP^cAN000"
S22A D P^cA612(2,1,20,80,1,0,0,1,$P($T(@("T27"_QT)),U,2),0,1,1,0,0)
S22B D TOONL(UQC,USC,"MTAB")
S22C S R="KEUZE\22\3\"_$P($T(@("T3"_QT)),U,2)_D_$P($T(@("T28"_QT)),U,2)_"\2\\(K?.N&(K'<1)&(K'>NR))!(""V-""[K)\\\1" D R0 G S22Z:K="-"
S22D I KEUZE="" D S2^cAB1291 G S22B
S22E I K="V" D S3^cAB1291 G S22B
S22F I KEUZE?1.N&(KEUZE<(NR+1)) D S1^cAB1291 G S22B
S22Z D C^cA612 Q
 ;
SCHRIJF ;  Op het scherm zetten van de executes
 W /CUP(1,1),@F1
 W /CUP(2,1),@F6,$P($T(@("T21"_QT)),U,2),@F9,": "
 W /CUP(3,2),"1 : ",$E($G(^DMC(UQC,USC,"SYN","0","0","2","0")),1,72)
 W /CUP(4,2),"2 : ",$E($G(^DMC(UQC,USC,"SYN","0","0","2","1")),1,72)
 W /CUP(6,1),@F6,$P($T(@("T22"_QT)),U,2),@F9,": "
 W /CUP(7,2),"3 : ",$E($G(^DMC(UQC,USC,"SYN","0","0","28","0")),1,72)
 W /CUP(8,2),"4 : ",$E($G(^DMC(UQC,USC,"SYN","0","0","28","1")),1,72)
 W /CUP(10,1),@F6,$P($T(@("T23"_QT)),U,2),@F9,": "
 W /CUP(11,2),"5 : ",$E($G(^DMC(UQC,USC,"SYN","0","0","22","0")),1,72)
 W /CUP(12,2),"6 : ",$E($G(^DMC(UQC,USC,"SYN","0","0","22","1")),1,72)
 W /CUP(14,1),@F6,$P($T(@("T24"_QT)),U,2),@F9,": "
 W /CUP(15,2),"7 : ",$E($G(^DMC(UQC,USC,"SYN","0","0","69","0")),1,72)
 W /CUP(16,2),"8 : ",$E($G(^DMC(UQC,USC,"SYN","0","0","69","1")),1,72)
SCHRIJFZ Q
 ;
 ;  Op het scherm tonen van alle synoniemen
TOON(UQC,USC,TABEL) 
 W /CUP(2,1),@F1
 S NR=0 S I1=0
 F  S I1=$O(^DMC(UQC,USC,"SYN",I1)) Q:I1=""  D
 . S NR=NR+1
 . S @TABEL@(NR,0)=I1
 . S @TABEL@(NR,1)=""
 . S TEKST="",BINDEX="",I2=""
 . F  S I2=$O(^DMC(UQC,USC,"SYN",I1,I2)) Q:(I2="LAY"!(I2=""))  D
 .. S BINDEX=$P($G(^DMC(UQC,USC,"SYN",I1,I2,"B")),D)
 .. S @TABEL@(NR,1)=$G(@TABEL@(NR,1))_I2_U_BINDEX_D
 .. S TEKST=TEKST_$P(^DMC(UQC,USC,"SYN",I1,I2,"TAAL","N"),D,3)
 .. S TEKST=TEKST_" ("_BINDEX_") "
 . W /CUP(NR+1,2),$J(NR,2),". ",TEKST
TOONZ Q
 ;
 ;  Op het scherm tonen van alle barcodes
TOONB(UQC,USC,TABEL) 
 W /CUP(1,1),@F1
 S NR=0
 S BSTRING=$G(^DMC(UQC,USC,"DATA","BAR"))
 I '$L(BSTRING) G TOONBA
 S LEN=$L(BSTRING,D)-1
 S NR=NR+1
 S @TABEL@(NR)=$P(BSTRING,D)
 W /CUP(NR+1,2),$J(NR,2),". ",$P(BSTRING,D)
 F I1=1:1:LEN D
 . S NR=NR+1
 . S @TABEL@(NR)=$P(BSTRING,D,(I1+1))
 . W /CUP(NR+1,2),$J(NR,2),". ",$P(BSTRING,D,(I1+1))
TOONBA I $L($G(^DMC(UQC,USC,"DATA","BAR","SYN"))) W /CUP(NR+3,2),$P($T(@("T32"_QT)),U,2)," : ",$G(^DMC(UQC,USC,"DATA","BAR","SYN"))
TOONBZ Q
 ;
 ;  Op het scherm tonen van alle indexen
TOONI(UQC,USC,TABEL,IND) 
 S NR=0,I1="",INDEXEN="\"
 W /CUP(2,1),@F1
 F  S I1=$O(^DMC(UQC,USC,IND,I1)) Q:I1=""  D
 . S NR=NR+1
 . S INDEX=$P($G(^DMC(UQC,USC,IND,I1)),D)
 . S @TABEL@(NR)=INDEX_D_I1 S INDEXEN=INDEXEN_INDEX_D
 . S TAALN=$P($G(^DMC(UQC,USC,IND,I1,"TAAL","N")),D)
 . S TAALF=$P($G(^DMC(UQC,USC,IND,I1,"TAAL","F")),D)
 . S TAALE=$P($G(^DMC(UQC,USC,IND,I1,"TAAL","E")),D)
 . I $E(IND,$L(IND))'=2 W /CUP(NR+1,2),$J(NR,2),". ",INDEX,"\",$P($G(^DMC(UQC,USC,IND,I1)),D,2)," ",TAALN,"/",TAALF,"//",TAALE
 . I $E(IND,$L(IND))=2 W /CUP(NR+1,2),$J(NR,2),". ",INDEX,"\",$P($G(^DMC(UQC,USC,IND,I1)),D,2)
TOONIZ Q
 ;
 ;  Op het scherm tonen van alle links
TOONL(UQC,USC,TABEL) 
 S NR=0,I1=""
 W /CUP(2,1),@F1
 F  S I1=$O(^DMC(UQC,USC,"LINK",I1)) Q:I1=""  D
 . S NR=NR+1
 . S CODE=$P($G(^DMC(UQC,USC,"LINK",I1)),D)
 . S @TABEL@(NR)=I1_D_CODE
 . S BINDEX=$P($G(^DMC(UQC,USC,"LINK",I1)),D,2)
 . W /CUP(NR+1,2),$J(NR,2),". ",CODE," (",BINDEX,")"
TOONLZ Q
 ;
 ;  Op het scherm tonen van alle multiples
TOONM(UQC,USC,TABEL) 
 W /CUP(1,1),@F1
 S NR=0,I1="",CODES="\"
 F  S I1=$O(^DMC(UQC,USC,"MULTI",I1)) Q:I1=""  D
 . S NR=NR+1
 . S CODE=I1 S @TABEL@(NR,0)=CODE
 . S CODES=CODES_CODE_D
 . S I2="" S INDEXEN=""
 . S @TABEL@(NR,1)=""
 . F  S I2=$O(^DMC(UQC,USC,"MULTI",I1,I2)) Q:I2=""  D
 .. S INDEXEN=INDEXEN_"/"_$P(^DMC(UQC,USC,"MULTI",I1,I2),D)
 .. S INDEX=$P($G(^DMC(UQC,USC,"MULTI",I1,I2)),D)
 .. S @TABEL@(NR,1)=@TABEL@(NR,1)_I2_U_INDEX_D
 . W /CUP(NR+1,2),$J(NR,2),". ",CODE," : ",$E(INDEXEN,2,$L(INDEXEN))
TOONMZ Q
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84