cAN2222 ;BEHEER VRIJE VELDEN ;%AN222 ; [ 01/04/01  9:26 AM ]
 ;
T0 ;Beheer vrije velden ;
T1 ;Nummer element\"-[] = einde";Rubriek ;
T2 ;Wijzigbaar;0[] = neen   1[] = ja;Neen;Ja;
T3 ;Prompt N;
T4 ;Prompt F;
T6 ;Prompt E;
 ;
T0F ;Gestion des champs libres ;
T1F ;Numéro d'élément\"-[] = fin";Rubrique ;
T2F ;Modifiable;0[] = non   1[] = oui;Non;Oui;
T3F ;Descr. N;
T4F ;Descr. F;
T6F ;Descr. A;
 ;
T0E ;Free fields ;
T1E ;Number element\"-[] = end";Element ;
T2E ;Can be modified;0[] = no   1[] = yes;No;Yes;
T3E ;Prompt D;
T4E ;Prompt F;
T6E ;Prompt E;
 ;
 ; Window & Titel
1 D P^cA612(17,1,5,80,1,1,0,0,$P($T(@("T1"_QT)),U,3)_U1,0,0,1,0,0)
11 S U2(0)=$L($$S2(1,1))+$L($$S2(1,2))+$L($$S2(1,4)),U2(0)=''U2(0)
 ;
 ; Tonen gegevens
2 W /CUP(1,1)," 1 ",/SGR(4),$$S1(2),/SGR(24),/CUP(1,16),": ",$P($T(@("T2"_QT)),U,4+$$S2(0,1)),/WCMD
21 W /CUP(2,1)," 2 ",/SGR(4),$$S1(3),/SGR(24),/CUP(2,16),": ",$$S2(1,1)
23 W /CUP(3,1)," 3 ",/SGR(4),$$S1(4),/SGR(24),/CUP(3,16),": ",$$S2(1,2)
27 W /CUP(2,41)," 4 ",/SGR(4),$$S1(6),/SGR(24),/CUP(2,56),": ",$$S2(1,4)
 ;
 ; Nummer element
6 S R="UV\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\$L(K)" D R0 I K="-"!(K=",") G Y
61 I K>4!'K G 6
 ;
7 S UV=+UV
701 I UV=1 D S3(2,0,1,1) I K'="-",K'="," D S4(0,1)
702 I U2(0),UV=2 D S3(3,1,1,10) I K'="-",K'="," D S4(1,1)
703 I U2(0),UV=3 D S3(4,1,2,10) I K'="-",K'="," D S4(1,2)
707 I U2(0),UV=4 D S3(6,1,2,10) I K'="-",K'="," D S4(1,4)
79 G 6:K="-"!(K=","),2
 ;
 ; Aanpassen rubriek
Y S U2(19)="" I 'U2(0) S U2(1)=D,U2(19)="S K=K"
YA I U2(0),'$L($$S2(1,QTU)) G 2
YZ K U2(0) D C^cA612 Q
 ;
 ; Prompt
S1(R) S R=$P($T(@("T"_R_QT)),U,2)
S1Z Q R
 ;
 ; Data
S2(V,P) S R=$P($G(U2(V)),D,P)
S2Z Q R
 ;
 ; Vraagstelling
S3(T,V,P,L)        S I=$$S2(V,P),R="I\22\3\"_$$S1(T)_"\\"_L_"\\\\\\\1" D  D R0
 . I T=2 S $P(R,D,5)=""""_$P($T(@("T2"_QT)),U,3)_""""
S3Z Q
 ;
 ; Update
S4(V,P) S $P(U2(V),D,P)=I
S4Z 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