cAN2212 ;BEHEER PATRONEN ;%AN221 ; [ 01/04/01  9:09 AM ]
 ;
T0 ;Beheer patronen ;
T1 ; Openen patroon ;
T2 ;Nummer;
T3 ;Omschrijving;
T4 ;Bevestiging\"[] = ok   ,[] = hernemen   xx[] = wijzigen rubriek xx";
 ;
T0F ;Gestion des masques ;
T1F ; Création masque ;
T2F ;Numéro;
T3F ;Description;
T4F ;Confirmation\"[] = ok   ,[] = reprendre   xx[] = modifier rubrique xx";
 ;
T0E ;Templates ;
T1E ; Creation of template ;
T2E ;Number;
T3E ;Description;
T4E ;Confirmation\"[] = ok   ,[] = retry   xx[] = modify element xx";
 ;
 ; Titel
1 D P^cA612(6,1,16,80,1,0,1,1,$P($T(@("T1"_QT)),U,2),0,1,1,0,0)
11 S OMS="" F UP=1:1 Q:'$D(@IREF@(UP))
13 W /CUP(2,2),"1 ",/SGR(4),$P($T(@("T2"_QT)),U,2),/SGR(0),/CUP(2,19),": ",UP
15 D S1,S1^cAN221,S1 I K="-" G YZ
 ;
 ; Bevestiging
2 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\2" D R0 G 3:K="",15:K="-"!(K=",")
21 I K=2 D S1^cAN221,S1 G 2
23 G 2
 ;
 ; Openen
3 S $P(@IREF@(UP),D)=OMS,RSX=UP
 I $G(SWCTLG) S $P(^(UP),D,2)=CTLG
 ;
YZ D C^cA612 Q
 ;
 ; omschrijving
S1 W /CUP(4,2),"2 ",/SGR(4),$P($T(@("T3"_QT)),U,2),/SGR(0),/CUP(4,19),": ",OMS,/EL(0)
 I $G(SWCTLG),$G(CTLG) W " (",$$SIG^cAFA1("CTLG",CTLG,102),")"
 W /WCML
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