cAN2241 ;Beheer K.O.S.-schermen; %AN224 ; [ 02/24/00  10:12 AM ]
 G 1
 ;
 ; "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(UKOS(SW2),U,2)!(U1>$P(UKOS(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(UKOS(SW2),-1) G 3
25 I RK=26,SW2<SW4 S (K,U1)="."_$O(UKOS(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) G 2:'U1,2:'$D(UKOS(U1))!(U1=SW2),7
31 S U1=+K G 2:U1<$P(UKOS(SW2),U,2)!(U1>$P(UKOS(SW2),U,3)) D M^cAN000(U1)
 ;
 ; wijzigen rubriek
4 D ^cAN2242 g 2:K="-"!(K=",")
41 K ^DMA(UQA,USA,SW2,C(U1))
42 M ^DMA(UQA,USA,SW2,C(U1))=U2
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