cAN2221 ;BEHEER VRIJE VELDEN ;%AN200 ; [ 01/04/01  9:12 AM ]
 G 1
 ;
T0 ;Beheer vrije velden ;
 ;
T0F ;Gestion des champs libres ;
 ;
T0E ;Free fields ;
 ;
 ; "data" per rubriek
S3 S (K,U2(8))="" I U2(9) S $P(K,".",U2(9))="."
S3A I U2(13)>U2(9) F  Q:$L(K)=U2(13)  S K=K_"*"
S3B I U1<$P(UVV(SW2),U,2)!(U1>$P(UVV(SW2),U,3)) S K=""
S3Z Q
 ;
 ; pagina tonen
S1 S SW5=1 K C D S1^cAN000(SW2)
S1A S U1=0 F  S U1=$O(C(U1)) Q:U1=""  D S2^cAN000(U1),S3,S3^cAN000(K)
S1Z S SW5=0 K REFRESH Q
 ;
 ; pagina tonen
1 S SW1=1 D S1
11 I SW1 S SW1=0 L +^DMA(UQA,USA):2 E  D BUSY^cAFA1 G YZ
 ;
 ; nummer element
2 D ^cAN006("",22,"","","",SW4,"","")
23 I RK=25,SW2>1 S (K,U1)="."_$O(UVV(SW2),-1) G 3
25 I RK=26,SW2<SW4 S (K,U1)="."_$O(UVV(SW2)) G 3
27 I RK'=28 G 2
29 I "-,"[K S (K,U1)="," G 7
 ;
 ; uitvoeren keuze
3 I $E(K)="." S U1=$E(K,2,$L(K)) G 2:'U1,2:'$D(UVV(U1))!(U1=SW2),7
31 S U1=+K G 2:U1<$P(UVV(SW2),U,2)!(U1>$P(UVV(SW2),U,3)) D M^cAN000(U1)
 ;
 ; wijzigen rubriek
4 D ^cAN2222 S ^DMA(UQA,USA,SW2,C(U1),1)=U2(1),^(19)=U2(19)
41 F R=1:1:DMA S I=$P(DMA(R),D),J=$P(DMA(R),D,2) D
 . S X=0 F  S X=$O(^DMA(I,J,X)) Q:X=""  D
 .. S Y="" F  S Y=$O(^DMA(I,J,X,Y)) Q:Y=""  D
 ... I $G(^(Y,16))=U2(16) S ^(1)=U2(1),^(19)=U2(19)
43 D S1 G 2
 ;         
 ; einde pagina
7 G 8
 ;
 ; keuze pagina/module
8 D ^cAN001("",22,"","","",SW4,"S SW2=K D S1",U1)
85 I RK=27 G X
87 I RK'=28 G 8
 ;
 ; uitvoeren pagina/module
9 I K="-"!(K=",") G X
91 X X I $G(REFRESH) D S1
93 G 2
 ;
 ; Xecute op 't einde
X L -^DMA(UQA,USA) G YZ
 ;
YZ G Y^cAN222
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84