cAN221(USA,UQA,UQC,UQM,SWCTLG)      ;BEHEER PATRONEN ;%AN221 ; [ 01/11/01  2:44 PM ]
 ; SWCTLG = 1 indien ook voor catalogi
 ;
T0 ;Beheer patronen ;
T1 ; Beheer openingspatronen ;Beheer patroon;
T2 ;Bestand : ;
T4 ;Omschrijving;
T5 ;Keuze\"[] = beheer patroon   V[] = verwijderen   W[] = wijzigen omschrijving";
T6 ;Bevestiging\"V[] = DEFINITIEF verwijderen";
 ;
T0F ;;
T1F ; Gestion des masques de création ;Gestion masque;
T2F ;Fichier : ;
T4F ;Description;
T5F ;Choix\"[] = gestion masque   V[] = annuler   W[] = modifier description";
T6F ;Confirmation\"V[] = annuler DEFINITIVEMENT";
 ;
T0E ;Templates ;
T1E ; Templates ;Template;
T2E ;File : ;
T4E ;Description;
T5E ;Choice\"[] = template   V[] = remove   W[] = modify description";
T6E ;Confirmation\"V[] = FINAL remove";
 ;
 ; Titel
1 D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T1"_QT)),U,2),0,0,7,1,1)
10 G YZ:USA=""
11 I $G(UQA)="",$G(UQC)="",$G(UQM)="" S UQM=$G(^DMS(Q,USA,"DMM","O")),UQA=$P($G(^DMS(Q,USA,"DMA","O")),D),USA=$P($G(^("O")),D,2)
13 G YZ:UQA="",YZ:USA="",YZ:'$D(^DMA(UQA,USA,0,"DMS")) S C=^("DMS"),USM=$G(^("M"))
14 D DMS^cAN000("UQC","USC",C) I UQC=""!(USC="") G YZ
15 S I=$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D,2)
16 W /CUP(2,3),$P($T(@("T2"_QT)),U,2),$$UC^cAFA1($E(I)),$E(I,2,99),/WDSP
17 S IREF=^DMC("DAM","NR.PATROON","DATA","INDEX"),UFU="?"
19 L +@IREF:2 E  D BUSY^cAFA1 G YZ
 I $G(SWCTLG) D DMS^cAN000("uqc","usc","CTLG",1) S SWCTLG=1 I '$L(uqc)!'$l(usc) S SWCTLG=0
 ;
 ; Synoniemen
2 D ^cAN103("UP",16,"DAM","NR.PATROON",$G(UP,1)) G YZ:K="-"
21 W /CUP(4,3),$P($T(@("T1"_QT)),U,3)," : ",UP," ",$P(@IREF@(UP),D),/EL(0)
 S CTLG=""
 I $G(SWCTLG),$P(^(UP),D,2) S CTLG=$P(^(UP),D,2) I CTLG W " (",$$SIG^cAFA1("CTLG",CTLG,102),")"
 W /WCML
 ;
 ; Beheer/Verwijderen/Wijzigen
3 S R="KEU\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-VW""[K\\\1" D R0 G 39:K="-",4:K=""
31 I K="W" D  G 21
 . S OMS=$P(@IREF@(UP),D) D S1 I K'="-",K'="," S $P(@IREF@(UP),D)=OMS I $G(SWCTLG) S $P(^(UP),D,2)=CTLG
33 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\""-,V""[K&$L(K)\\\1" D R0 G 3:K'="V"
35 K @IREF@(UP)
39 W /CUP(6,1),/WCMD G 2
 ;
 ; Schermopbouw + titel tonen
4 S I=$G(^DMA(UQA,USA,0,"WIN")) F J=1:1:8 S $P(I,D,J)=+$P(I,D,J)
41 S J=I,UTIT=""
43 S I=$P($T(@("T1"_QT)),U,3)_" "_$P(@IREF@(UP),D) I $G(SWCTLG),$G(CTLG) S I=I_" ("_$$SIG^cAFA1("CTLG",CTLG,102)_")"
45 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,0,0,7,1,1)
 ;
 ; aantal pagina's & nodes
5 S USL=D,$P(USL,D,29)=D,(SW2,SW3,SW5)=1,I=0
51 F  S I=$O(^DMA(UQA,USA,I)) Q:I=""  S SW4=I,J="" D
 . F  S J=$O(^DMA(UQA,USA,I,J)) Q:J=""  S U7=$G(^(J,16)) I U7\100>SW3 S SW3=U7\100
 ;
 ; eigenlijke beheer
6 D ^cAN2211 G 19
 ;
YZ D C^cA612 Q
 ;
 ; omschrijving
S1 N KR
S1A S KR=OMS
 S R="KR\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\28\\$L(K)\\\\\1" D R0 I $E(K)=" " G S1A
 I K="-"!(K=",") G S1Z
S1B S OMS=K
 I $G(SWCTLG) S K=$$^cANSYN("CTLG","",$G(CTLG),1,1) G S1A:K="-" S CTLG=K 
S1Z Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84