cAB18(Q,CODE) ;Beheer afwijkingen ^DMS; %AB18 [ 10/12/00  3:57 PM ]
 ;
 G 1
 ;
T0 ;Beheer afwijkingen ^DMS;
T1 ;Functie   UQA          USA                         UQM          USM;
T2 ;Functie\"x[] = letter van de functionaliteit";
T3 ;Wijzigen afwijking ;
T4 ;UQA;
T5 ;USA;      
T6 ;UQM;
T7 ;Nummer element;
 ;
1 N DELV,DELH,KRUIS,RIJ,I1,I2,UQA,USA,UQM,USM,KEUZE,NR S $ZT="TRAP^cAN000"
 ; Oproepen tabel afwijkingen
11 D P^cA612(6,1,16,80,1,0,1,1,$P($T(@("T0"_QT)),U,2),0,1,1,0,0)
13 D SCHRIJF
15 S R="KEUZE\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\$L(K)&(""-OWRVL""[K)\\\1" D R0 G YZ:K="-"
 ;  Wijzigen van een afwijking van een bepaalde functie
17 D P^cA612(15,1,7,80,1,0,1,1,$P($T(@("T3"_QT)),U,2)_KEUZE,0,1,1,0,0)
19 S UQA=$P($G(^DMS(Q,CODE,"DMA",KEUZE)),D),USA=$P($G(^(KEUZE)),D,2)
 ;
2 S UQM=$G(^DMS(Q,CODE,"DMM",KEUZE))
21 W /CUP(2,2),@F2,"1.",@F6,$P($T(@("T4"_QT)),U,2),@F9," : ",UQA
23 W /CUP(3,2),@F2,"2.",@F6,$P($T(@("T5"_QT)),U,2),@F9," : ",USA
25 I KEUZE'="L"&(KEUZE'="V") W /CUP(4,2),@F2,"3.",@F6,$P($T(@("T6"_QT)),U,2),@F9," : ",UQM
27 S R="NR\22\3\"_$P($T(@("T7"_QT)),U,2)_"\\1\\$L(K)&(""-123""[K)" D R0
29 I NR="-" D C^cA612 G 13
 ;
3 I NR=3,(KEUZE="L"!(KEUZE="V")) G 27
31 I NR=1 D UQA G 19
33 I NR=2 D USA G 19
35 I NR=3 D UQM G 19
 ;
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
 ;  Tekenen van de tabel
SCHRIJF W /CUP(1,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 RIJ=2
 W /CUP(RIJ,2),/SGR(1),$P($T(@("T1"_QT)),U,2),/SGR(0),/WCMD
 D STREEP
 S RIJ=RIJ+1
 F I1=2:1:77 W /CUP(RIJ,I1),@DELH
 W /CUP(RIJ,10),@KRUIS
 W /CUP(RIJ,23),@KRUIS
 W /CUP(RIJ,51),@KRUIS
 W /CUP(RIJ,64),@KRUIS
 S RIJ=RIJ+1
 F I2="O","W","R","V","L"  D
 . W /CUP(RIJ,5),I2
 . S UQM=$G(^DMS(Q,CODE,"DMM",I2))
 . S UQA=$P($G(^DMS(Q,CODE,"DMA",I2)),D)
 . S USA=$P($G(^DMS(Q,CODE,"DMA",I2)),D,2)
 . S USM=""
 . I $G(UQA)'="",$G(USA)'="",$G(UQM)'="" S USM=$G(^DMA(UQA,USA,0,"M"))
 . W /CUP(RIJ,12),$S($G(UQA)="":"-",1:$G(UQA))
 . W /CUP(RIJ,25),$S($G(USA)="":"-",1:$G(USA))
 . W /CUP(RIJ,53),$S($G(UQM)="":"-",1:$G(UQM))
 . W /CUP(RIJ,66),$S($G(USM)="":"-",1:$G(USM))
 . D STREEP
 . S RIJ=RIJ+1
SCHRIJFZ Q
 ;
STREEP W /CUP(RIJ,10),@DELV
 W /CUP(RIJ,23),@DELV
 W /CUP(RIJ,51),@DELV
 W /CUP(RIJ,64),@DELV
STREEPZ Q
 ;
 ;  Wijzigen USA
USA S R="USA\22\3\"_$P($T(@("T5"_QT)),U,2)_"\\30\\\\\1\\1" D R0 G USAZ:K="-"
 S $P(^DMS(Q,CODE,"DMA",KEUZE),D,2)=USA
USAZ Q
 ;
 ;  Wijzigen UQA
UQA S R="UQA\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\10\\\\\1\\1" D R0 G UQAZ:K="-"
 S $P(^DMS(Q,CODE,"DMA",KEUZE),D)=UQA        
UQAZ Q
 ;
 ;  Wijzigen UQM
UQM S R="UQM\22\3\"_$P($T(@("T6"_QT)),U,2)_"\\10\\\\\1\\1" D R0 G UQMZ:K="-"
 S ^DMS(Q,CODE,"DMM",KEUZE)=UQM
UQMZ Q
 ;
ZZ ; 02.11.00 - 13 u 32 * V7.81