cANTIT ;Titel tonen ;%AN200 ; [ 02/12/01  4:52 PM ]
 G YZ
 ;
T0 ;Titel tonen ;
T1 ;Openen;Wijzigen;Raadplegen;Verwijderen;Sequentieel wijzigen;Controlelijst;Wijzigen in groep;
 ;
T0F ;Affichage tître ;
T1F ;Création;Modification;Consultation;Annulation;Modification séquentielle;Liste de vérification;Modification en masse;
 ;
T0E ;Display title ;
T1E ;Creation of;Modification of;Consultation of;Remove;Sequential modification of;Checklist of;Modifaction in group of;
 ;
 ; sequentieel wijzigen
S(USA,UQA)         S K=6 G 1
 ;
 ; wijzigen in groep
G(USA,UQA)         S K=8 G 1
 ;
 ; algemene initialisatie
1 N C,UQC,USC,UTIT,UTX
10 S $ZT="TRAP^cAN000"
11 S UTX=$P($T(@("T1"_QT)),U,K)
12 G YZ:$G(USA)="",YZ:$G(UQA)="",YZ:'$D(^DMA(UQA,USA,0,"DMS"))
13 S C=^("DMS") D DMS^cAN000("UQC","USC",C) I UQC=""!(USC="") G YZ
15 S UTIT=$G(^DMA(UQA,USA,0,"TIT"))
17 S I=$G(^("WIN")) F J=1:1:8 S $P(I,D,J)=+$P(I,D,J)
19 S J=I
 ;
 ; window + titel tonen
2 I 'UTIT D O^cA612($P(J,D),$P(J,D,2),$P(J,D,3),$P(J,D,4),$P(J,D,5),$P(J,D,6),$P(J,D,7),$P(J,D,8)) G 3
21 I $P(UTIT,D,5)=2 S I=$P(^DMA(UQA,USA,0,"TIT","ALT"),D,QTU)
22 E  S I=$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D,2)
23 I '$P(UTIT,D,5) S I=UTX_" "_I
24 I $P(UTIT,D,8)=1 S I=$$UC^cAFA1($E(I))_$E(I,2,99)
25 I $P(UTIT,D,8)=2 S I=$$UC^cAFA1(I)
26 D P^cA612($P(J,D),$P(J,D,2),$P(J,D,3),$P(J,D,4),$P(J,D,5),$P(J,D,6),$P(J,D,7),$P(J,D,8),I,$P(UTIT,D,2),$P(UTIT,D,3),$P(UTIT,D,4),$P(UTIT,D,6),$P(UTIT,D,7))
 ;
3 ; reference + synoniemen
 ;
YZ Q
 ;
ZZ ; 14.02.01 - 14 u 40 * V7.84